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% 

Page Numbers: Yes First Page: 1 
Heading: 

MODEL i: preamble.me September 19, 1979 10:42 AM % 

% 

September 19, 1979 10:42 AM 

Try undoing zerollold fix -- found a different bug that probably accounts for the behavio 
September 18, 1979 5:55 PM 

Try to make zeroHold more reliable: apparently 3 in a row is not enough. 

June 17, 1979 5:11 PM 

Change holdValueLoc to accommodate ifu entry points 
April 17, 1979 10:45 PM 

Add sim.hoidMask, sim.taskMask, sim.holdShift, sim.taskShift. 

January 25, 1979 11:05 AM 

Change simTaskLevel to 12B. 

January 18, 1979 5:10 PM 

Add currentTaskNum. 

% 

TITLE[PREAMBLE]; 

% 


NAMING CONVENTIONS: 

LABELS BEGIN W/ THE 
Aplusl 
cntFcn 
aluLTO 

Ish => Left shift 
rsh => Right shift 
Icy => Left Cycle 
rcy => Right Cycle 


OPERATION BEING TESTED: 


Register Read/write tests are suffixed with RW: 
cntRW 
shcRW 


% 


LOOP LABELS ARE SUFFIXED AS INNER (IL) 

cntFcnIL * INNER 

cntFcnOL * OUTER 

cntFcnXITIL * LABEL 

cntFcnXITOL * LABEL 

ApluslL 586 ONLY LOOP 


AMD OUTER(OL) LOOPS (L). 
LOOP 
LOOP 

FOR EXITING INNER LOOP 
FOR EXITING OUTER LOOP 


RMREGIONfDEFAULTREGION]: 


rv[rO,0]; 
rv[r01.52525]; 
rv[rscr,0]; 
rv[rscr4,6] ; 
rv[klink, 0]; 
rv[hack2,0]; 


rv[rl,1]; 
rv[r!0,125252]; 
rv[rscr2,0]; 
rv[stackPAddr, 
rv[hack0,0]; 


rv[rml,177777]; 
rv[rhighl,100000]; 
rv[rscr3,0]; 

0]; rv[stackPTopBits, 

rv[hackl, 0]; 


0 ]; 


rvrel[rmx0, 0]; rvrel[rmxl, 1]; rvrel[rmx2, 2]; 
rvrel[rmx3, 3]; rvrel[rmx4, 4]; rvrel[rmx5, 5]; 
rvrel[rmx6, 6]; rvrel[rmx7, 7]; rvrel[rmxl0, 10]; 

* Constants from FF 


nsp[PNB0,100000]; 

nsp[PNBl,40000]; nsp[PNB2,20000]; 

nsp[PNB4,4000]: nsp[PNB5,2000]; nsp[PNB6,1000]; 

nsp[PNB8,200]; nsp[PNB9,100]; 
nsp[PNBll,20]; 
nsp[PNB14,2]; 


nsp[PNB7,400]; 
nsp[PNB10,40]; 
nsp[PNB13,4]; 


nsp[PNB12,10]; 
nsp[PNB15,1]; 


nsp[PNB3,10000]; 


mc[B0,100000]; 
mc[Bl,40000]; 
mc[B4,4000]; 
mc[B7,400]; 
mc[B10,40]; 
mc[B13,4] ; 


mc[B2,20000]; 
mc[B5,2000]; 
mc[B8,200]; 
mc[Bll,20]; 
mc[B14,2]; 


mc[B3,10000]; 
mc[B6,1000]; 
mc[B9,100]; 
mc[B12,10]; 
mc[B15,1]; 


mc[NB0,PNB0] 
nic[NBl, PNB1] 
mc[NB4,PNB4] 
mc[NB7,PNB7] 


mc[NB2,PNB2] 
mc[NB5,PNB5] 
mc[NB8,PNB8] 


mc[NB3,PNB3] 
mc[NB6,PNB6] 
mc[NB9,PNB9] 
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mc[NB10,PNB10]; mc[NBll,PNB11]; mc[NB12,PNB12]; 
mc[NB13,PNB13]; mc[NB14,PNB14]; mc[NB15,PNB15]; 

mc[CMl,177777];mc[C77400,77400]; mc[C377,377];mc[CM2,-2]; 
mc[getIMmask, 377]; * isolate IM data after getlm[]! 

m[noop, BRANCH[.+1]]; 
m[skip, BRANCH[.+2]]; 
rn[error, ILC[(BRANCH[ERR])]]; 

m[skiperr, ILC[(BRANCH[.+2])] ILC[(BRANCH[ERR])]]; 
m[skpif, BRGO[tsd] BAT[.+2,#1,#2]]; 
m[skpUnless, BRGO[tsd] DBAT[.+1,.+2,#1,#2]]; 
m[loopChk, BRGO[tsd] DBAT[#1,.+1,#2,#3]]; 

m[loopttotil, BRGO[tsd] DBAT[.+1,#2,#1,#3]];* if #1 then goto .+1 else goto #2 
m[loopWhile, BRGO[tsd] DBAT[#2,.+1,#1,#3]];* if #1 then goto #2 else goto .+1 
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* April 17, 1979 10:47 PM 

rmRegion[rm2ForKernelRtn] ; 
knowRbase[rm2ForKernelRtn]; 


rv[randV,0]; * current value from random number generator 

rv[randX,0]; * current index into random number jump table 

rv[oldRandV,0]; * saved value 

rv[oldRandX,0]; * saved value 

rv[chkSimulatingRtn, 0]; 

rv[fixSimRtn, 0]; 

rv[chkRunSimRtn, 0]; 

rv[currentTaskNum, 0]; 

rmRegion[randomRM]; 

knowRbase[randomRM]; 


rv[rndm0, 134134] 
rv[rndm2, 036711] 
rv[rndm4, 117253] 
rv[rndm6, 041344] 


rv[rndml, 054206]; 
rv[rndm3, 103625]; 
rv[rndm5,154737]; 
rv[rndm7, 006712]; 


knowRbase[defaultRegion]; 

mp[flags.conditionalP, 200]; * bit that indicates conditional simulating 

mp[f1ags.conditionOKp, 100]; * bit that indicates conditional simulating is ok 

set[holdValueLoc, 3400]; mc[holdValueLocC, hoidValueLoc]; 

mc[f1ags.taskSim, b15]; * MOTE: The "flags” manipulation code 
mc[f1ags.hoidSim, b14]; * works only so long as there are no more 
mc[f1ags.simulating, flags.taskSim, f1ags.hoidSim]; 
set[simTaskLevel, 12]; mc[simTaskLevelC, simTaskLevel]; 


mc[sim.hoidMask, 377]; set[sim.holdShift, 0]; 
mc[sim.taskMask, 177400]; set[sim.taskShift, 10]; 

m[lh, byt0[ and[rshift[#l,10], 377] ] bytl[ and[#l, 377]] 
]; * assemble data for left half of IM 

m[rh, byt2[ and[rshift[#l,10], 377] ] byt3[ and[#l, 377]] 
]; * assemble data for right half of IM 

m[zeroHold, ilc[(#l A0)] 

i 1 c[(hoid&tasksim «- #1)] 
ilc[(hoid&tasksim «- #1)] 
i 1 c[(hoi d&tasksim «- #1)] 

]: 
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* December 11, 1978 3:20 PM 

% 

subroutine entry/exit macros 

% 

m[saveReturn, ilc[(t <- link)] 
top level[] 
ilc[(#l «■ t)] 

]5 

m[saveReturnAndT, ilc[(#2 t)] 

i 1 c[(t link)] 
top level[] 
ilc[(#l <- t*)] 

]; 


m[returnllsing, subroutine[] 

i 1 c[(RBASE rbase[#l]) ] 
i 1 c[( 1 ink 4 - #l)] 

ilc[(return, RBASE <- rbase[defaul tRegion])] 

]; 

m[returnAndBranch, subroutine[] 
il c[(RBASE4-rbase[#l])] 
i 1 c[( 1 i nk4-#l) ] 

il c[ (RBASE*-rbase[defaul tRegion]) ] 
ilc[(return, PD**#2)] 

]; 

m[pushReturn, subroutine[] 
ilc[(stkp+l)] 
top level[] 
ilc[(stack 4- 1 ink)] 

]; * notice that this macro doesn't clobber T !!! 

m[pushReturnAndT, subroutine[] 
ilc[(stkp+l)] 
ilc[(stack&+l 4- link)] 
top level[] 
il c[(stack<-t) ] 

]; 

mfreturnP, subroutine[] 

il c[( 1 ink<-( stack&-l)) ] 
ilc[(return)] 

]; 

m[pReturnP, 

ilc[(stkp-l)] 
subroutine[] 
ilc[(l ink<-(stack&-l))] 
ilc[(return)] 

]; 

m[returnPAndBranch, subroutine[] 
il c[(l i nk<-( stack&-l)) ] 
ilc[(return, PD<-#1)] 

]; 

m[pReturnPAndBranch, subroutine[] 
ilc[(stkp-l)] 
ilc[(l i nk*-( stack&-l)) ] 
ilc[(return, PD«-#1)] 

]; 

m[getRandom, ilc[(RBASE <- rbase[randX])] 

ilc[(randX <- (randX)+l, Bdispatch 4 - randX)] 
ilc[(call[random], RBASE 4 - rbase[rndmO])] 
ilc[(RBASE 4 - rbase[defaultRegion])] 

]; * Returns random number in T, leaves RBASE= defaultRegion 


knowRbase[defaultRegion]; 
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% 

Page Numbers: Yes First Page: 1 
Heading: 

kernelAlu.mc October 20, 1978 10:38 AM % 

TITLE[KernelALU-model 1.8/30/78]; 

% 

October 19, 1978 1:13 PM 

PD<- for LU<- 

This file defines ALU operations for the program. Definitions for all possible ALU operations are give 
•*n here with one line/definition. The lines for the 20 operations enabled should have the "n" replace 
**d by consecutive values from 0 to 17. 16 should be "NOT A" for the shifter and 17 is normally used a 

**s a variable by BitBlt (i.e., not defined here), but can be used otherwise, if desired. Other lines 

* :i: should be commented out. 

Note that the letter "E" added as an argument where noted below converts the operation to emulator-only 
**. This is intended for locations used as variables by BitBlt, which must restore the smashed ALUFM 1 
♦locations to the proper value before exit. 

The "A" and "B" operations must both be defined because many macros optionally route using either A or 
**B for RB, T, MD, and Q (B path is preferred). Since ALUF[0] is the default for microinstructions, it 
** should contain a non-arithmetic operation to preserve CARRY and OVERFLOW branch conditions. 

Also, when running Midas the "B" operation is stored in ALUFM 0 and the NOT A operation in ALUFM 16, so 

** these should be loaded the same way by the microprogram to avoid confusion, unless there is some goo 

**d reason to do otherwise. 

Note that an important choice must be made between the arithmetic and logical versions of ALU*-A. The a 
**rithmetic version allows XORCARRY with ALU<-A but smashes OVERFLOW and CARRY branch conditions on ALU<- 
**A. 

°/o 
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ABOPB[PD<-, ,0,25]; 
ABOPA[PD<-, ,1,0]; 


*ALU*-B (use n=0) 
*ALU<-A 


*(arithmetic--so XORCARRY ok. Requires no more 
♦time than boolean "A" in absence of carryin) 

AB0PA[PD<-, , n , 37] ; *ALU*-A (logical, so XORCARRY illegal but OVERFLOW 

♦and CARRY branch conditions not smashed). 


♦"NOT B" and ’’NOT A" must be both defined also. 
ABOPB[NOT,,15,13]; ♦NOT B 

AB0PA[M0T,,16,1]; *NOT A (use n = 16 for shifter) 


♦Operations of no args (4th arg = letter E makes emulator-only) 
ZALUOP[AO,2,31]; ♦AO [= all zeroes] 

ZALU0P[A1,3,7]; ♦Al [= all ones] 


♦Arithmetic operations of two args [do not accept "slow" (external) 
♦B sources] (5th arg = letter E makes emulator-only) 

SALU0P[,+,,4,,14]; *A+B 

♦ SALUOP[,+,+l,n,,214]; *A+B+1 

SALUOP[,-,,5,,222]; ♦A-B 

♦ SALU0P[,-,-l,n,,22]; ♦A-B-l 



♦Boolean operations of two args (5th arg = letter E makes emulator-only) 

♦♦Note how synonyms are defined for # (XOR) and = (XNOR, EQV) 

ALUOP[,AND,,6,,35]; *A AND B 
ALUOP[,OR,,7,,27]; *A OR B 

ALUOP[,10,,23]; XALUOP[,XOR,,n]; *A # B (A XOR B) 

♦ ALUOP[,=,,n, ,15]; XALUOP[,XNOR,,n]; XALUOP[,EQV,,n]; 

ALUOP[,AND NOT,,11,,33]; *A AND NOT B [= A AND (NOT B)] 

ALUOP[,OR NOT,,12,,17]; *A OR NOT B [= A OR (NOT B)] 

♦ ALUOP[NOT,AND,,n,,21]; *NOT A AND B [= (NOT A) AND B] 

♦ ALUOP[NOT,OR,,n,,5]; ♦NOT A OR B [= (NOT A) OR B] 

♦ ALUOP[NOT,AND NOT,,n,,11]; *NOT A AND NOT B [= (NOT A) AND (NOT B)] 

♦ ALUOP[NOT,OR NOT,,n,,3]; *NOT A OR NOT B [= (NOT A) OR (NOT B)] 

♦Operations of one arg (5th arg = letter E makes emulator-only) 

♦ A0P[2,,n,6]; *2A 

♦ AOP[2,+1,n,206]; *2A+1 

AOP[,+1,13,200]; »A+1 

AOP[,-1,14,36]; # A-1 
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% 

Page Numbers: Yes First Page: 1 
Heading: 

kernel.me February 1, 1980 9:20 PM % 

TITLE[KERNEL]; 

IM[ILC, 0]; 

TOP LEVEL; 

* February 1, 1980 9:20 PM 

restartDiagnostic: 

BEGIN: 

goto[imO]; 
afterKernel1: 

goto[beginKerne!2]; 
afterKernel2: 

goto[beg inKernel 3]; 
afterKernel3: 

goto[beginKernel4]; 
afterKernel4: 

T«-R0; * R0 SHOULD HAVE ZERO IN IT 

BRANCH[.+2,ALU=0]; 

ERROR; 

T«-(R1)-1; * R1 SHOULD HAVE ONE IN IT. 

BRANCH[.+2,ALU=0]; 

ERROR; 

T<-R1; 

T<-T+(RM1); * RM1 SHOULD HAVE -1 IN IT; 

BRANCH[.+2,ALU=0]; 

ERROR; 

T«-100000C; 

T<-T#(RHIGH1); * RHIGH1 SHOULD HAVE 100000B 

BRANCH[.+2, ALU=0]; 

ERROR; 

T<-R10; * RIO SHOULD HAVE 125252B 

BRANCH[.+2, ALU<01; 

ERROR; 

T<-R01; 

DBLBRANCH[.+1, .+2, ALU<0]; 

ERROR; * R01 SHOULD HAVE 52525B IN IT 

T«-NOT ( R01).; 

T«-T#( RIO) ; * R01 SHOULD EQUAL NOT(RIO); 

BRANCH[.+2,ALU=0]; 

ERROR; * NOTE THIS IS NOT A COMPLETELY ACCURATE 

* TEST FOR CONTENTS OF RIO, R01! 

goto[done]; 

* CODE for midas debugging 

top 1evel; 


set[dbgTbls,100] ; 

11 : 

branch[ll], at[dbgTbls,0]; 

12 : 

noop, 

at[dbgTbls,1]; 


branch[12], at[dbgTbls,2]; 

13: 

noop, 

at[dbgTbls,3]; 


noop, 

at[dbgTbls,4]; 


branch[13], at[dbgTbls,5]; 

14: 

noop, 

at[dbgTbls,6]; 


noop, 

at[dbgTbls,7]; 


noop, 

at[dbgTbls,10]; 


branch[14], at[dbgTbls , 11] ; 

15: 

noop, 

at[dbgTbls,12]; 


noop, 

at[dbgTbls,13]; 


noop, 

at[dbgTbls,14]; 


noop, 

at[dbgTbls,15]; 


branch[15], at[dbgTbls,16] ; 

16: 

noop, 

at[dbgTb1s,17]; 


noop, 

at[dbgTbls,20]; 


noop, 

at[dbgTbls,21]; 


noop, 

at[dbgTbls,22]; 


noop, 

at[dbgTbls,23]; 


branch[l6], at[dbgTbls,24]; 
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% 

Page Numbers: Yes First Page: 1 
Heading: 

kernel 1.me May 8, 1979 11:40 AM % 

* INSERT[D1ALU.MC]; 

* TITLE[PR0G1]; 

* INSERT[PREAMBLE.MC]; 

% 

May 8, 1979 11:40 AM 

Add RoddByPass tests at enbd of xorBypass 
March 26, 1979 10:58 AM 

Add overflow test 
March 10, 1979 6:43 PM 

Add test of branch conditions when reschedule is ON. 

January 18, 1979 5:23 PM 

Remove checkTaskNum, a temporary kludge that caused reschedTest to fail during task circulation 

** . 

January 9, 1979 10:44 AM 

add reschedTest 

% 


CONTENTS 


TEST 


DESCRIPTION 


(singlestep) Chec RM to T, T to RM movement 
aluEQO check the fast branch code 

aluLTO check the fast branch code 

rEven check the fast branch code 

rGEO check the fast branch code 

reschedTest check the reschedule/noreschedule fast branches 
xorNoBypass test XOR alu op 
bypass test bypass decision logic 

xorBypass test XOR alu op, ALLOW BYPASS; R odd bypass test here, too. 

(alu ops) Test various alu operations (A+l, A+B, A-1,A-B) 

Carry Test carry fast branch 

(resched+branches) test effect of resched upon fast branches. 


freezeBCtest 
overflowTest 
% 


Test Freeze BC function (emulator only) 
Test the overflow fast branch function 
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* September 15, 1978 10:18 AM 

% 

SINGLE STEP THIS CODE: A AND B MULTIPLEXORS 

The point is to determine if it is possible to move data values thru 
the alu into different registers. 

% 

top 1evel ; 
kernel 1: 

IMO: T*-RM1; *TEST ALL ONES, ALL ZEROS, ALTER. 01, 10 

NOOP; * USE NOOP TO AVOID BYPASS LOGIC 

IM2: RSCR«-T; 

NOOP; 

IM4: T<-R0; * TEST 0 

NOOP; 

IM6 : RSCR <- T; 

NOOP; 

* NOW MOVE IT THRU A MUX 

IM14: T«-A«-RM1; * TEST ALL ONES 

NOOP; 

IM16: RSCR <-A<- T; 

NOOP; 

IM20: T*-A«-R0; * TEST ALL ZEROS 

NOOP; 

IM22: RSCR*- A<-T; 

* CHECK B MUX THRU FF FIELD: SINGLE STEP THIS CODE 


IM23: 
IM24: 

T<-B0; * 

T<-77400C; 

check 

that 

FF, 0 

works 

IM25: 
IM26: 

T<-B15; * 

T<-376C; 

check 

that 

0, FF 

works 
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* September 15, 1978 10:19 AM 

END SINGLE STEPPING !!! 



GIVEN SIMPLE A AND B PATHS, VALIDATE: 

RESULT=0 
RESULT<0 
R> = 0 
R EVEN 
CNT=0&+1 

% 

% TEST ALU=0 BY CHECKING EVERY BIT IN THE WORD: GET CONSTANTS FROM 

FF AND CHECK THEM FOR =0. USE BYPASS LOGIC!! 

These tests assume that there is no difference between amux source and bmux source for fast branches. A 
**CTUALLY, the initial set of tests will check amux 
sources too! 

T contains the value received. 

% 

aluEQOFF: 

t<-B0; 

skpUnless[ALU=0] , rscr<-(A«-t); * check it thru Amux 

error; * Thinks bitO is zero 

skpUnless[ALU=0]; 

error; * Thinks bitO is zero 

t«-Bl; 

skpUnless[ALU=0] , rscr«-(A<-t); * check it thru Amux 

aluEqOFFBl: 

error; * Thinks bitl is zero 

skpUnless[ALU=0]; 

error; * Thinks bitl is zero 

noop; *here for placement. 
t«-B2; 

skpUnless[ALU=0] , rscr<-(A<-t); * check it thru Amux 

aluEqOFFB2: 

error; * Thinks bit2 is zero 

skpUnless[ALU=0]; 

error; * Thinks bit2 is zero 

t<-B3; 

skpUnless[ALU=0], rscr<-( A<-t); * check it thru Amux 

error; * Thinks bit3 is zero 

skpUnless[ALU=0]; 

error; *■ Thinks bit3 is zero 

t<-B4; 

skpUnless[ALU=0], rscr<-(A<-t); * check it thru Amux 

aluEq0FFB4: 

error; * Thinks bit4 is zero 

skpUnless[ALU=0]; 

error; * Thinks bit4 is zero 

t<-B5; 

skpUnless[ALU=0], rscr<-(A<-t); * check it thru Amux 

error; * Thinks bit5 is zero 

skpUnless[ALU=0]; 

error; * Thinks bit5 is zero 

noop; * here for placement. 

t<-B6; 

skpUnl ess [ALU=0] , rscr<-(A«-t); * check it thru Amux 

aluEqOFFB6: 

error; * Thinks bit6 is zero 

skpUnless[ALU=0]; 

error; * Thinks bit6 is zero 

t<-B7; 

skpUnless[ALU=0] , rscr<-(A<-t); * check it thru Amux 

error; * Thinks bit7 is zero 
skpUnless[ALU=0]; 
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error; * Thinks bit7 is zero 
t«-B8; 

skpUnless[ALU=0], rscr<-( A<-t); * check it thru Amux 

aluEqOFFB8: 

error; * Thinks bit8 is zero 

skpUnless[ALU=0]; 

error; * Thinks bit8 is zero 

t«-B9; 

skp(Jnless[ALU=0] , rscr<-(A<-t); * check it thru Amux 

error; * Thinks bit9 is zero 

skpUnless[ALU=0]; 

error; * Thinks bit9 is zero 

noop; * here for placement. 

t«-B10; 

skpUnless[ALU=0], rscr<-(A<-t); * check it thru Amux 

aluEqOFFBlO: 

error; * Thinks bitlO is zero 

skpUnless[ALU=0]; 

error; * Thinks bitlO is zero 

t<-Bll; 

skpUnless[ALU=0], rscr<-(A<-t); * check it thru Amux 

error; * Thinks bitll is zero 

skpUnless[ALU=0]; 

error; * Thinks bitll is zero 

t<-B12; 

skpUnless[ALU=0] , rscr<-(A<-t); * check it thru Amux 

aluEqOFFB12: 

error; * Thinks bitl2 is zero 

skpUnless[ALU=0]; 

error; * Thinks bitl2 is zero 

t«-B13; 

skpUnless[ALU=0], rscr«-(A<-t); * check it thru Amux 

error; * Thinks bitl3 is zero 

skpUnless[ALU=0]; 

error; * Thinks bitl3 is zero 

noop; * here for placement. 

t«-B14; 

skpUnless[ALU=0], rscr<-(A<-t); * check it thru Amux 

aluEq0FFB14: 

error; * Thinks bitl4 is zero 
rscr*-(A«-t); * check it thru Amux 

skpUnless[ALU=0]; 
error; * Thinks bitl4 is zero 

t*B15; 

skpUnless[ALU=0], rscr<-(A<-t); * check it thru Amux 

error; * Thinks bitl5 is zero 

skpUnless[ALU=0]; 

error; * Thinks bitl5 is zero 


% 

°TEST ALU=0 BY PASSAGE THRU RM AND PASSAGE THRU T 

For all the alu=0 tests, an error implies the wrong branch was taken. 
The known values in RM are used to test the branch 

AVOID BYPASS LOGIC! 


aluEqORT: 

t<-r0; 

skpif[alu = 0]; 

error; * Thinks rO is zero 
rscr«-t; 

skpif [al u = 0] , t<-rl; 
error; 


skpUnless[alu=0]; 
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error; * Thinks rl is zero 
rscr«-t; 

skpUnl ess[al u = 0] , t<-rml; 
error; 

aluEqORTMl: 

skpUnless[alu=0]; 

error; * Thinks rml is zero 

rscr<-t; 

skpUnl ess [al u = 0], t<-rl; 
error; 

skpUnless[alu=0]; 

error; * Thinks rl is zero 

rscr<-t; 

skpUnl ess[al u = 0] , t<-r01; 
error; 

aluEqORTOl: 

skpUnless[alu=0]; 

error; * Thinks rOl is zero 

rscr<-t; 

skpUnl ess [al u = 0] , t«-rl0; 
error; 

skpUnless[alu=0]; 

error; * Thinks rlO is zero 

rscr<-t; 

skpUnl ess[al u = 0] , t<-rhighl; 
error; 

skpUnless[alu=0]; 

error; * Thinks rhighl is zero 

rscr<-t; 

skpUnless[alu=0]; 
error; 



kernel 1.me 


25-Sep-80 14:22:08 


Page 6 


% 

TEST RESULT <0 

For all the alu<0 tests, an error implies the wrong branch was taken. 
The known values in RM are used to test the branch 


AVOID BYPASS LOGIC 

% 

aluLTORT: 

t«-rhighl; 
skpif[alu<0]; 

error; * Thinks rhighl >=0 
rscr<-t; 
skpif[alu<0]; 

error; * Thinks T (=RIGH1) >=0 


t<-rl0; 

skpif[alu<0]; 
aluLTORT10: 

error; * Thinks rlO >= 0 
rscr<-t; 
skpif[alu<0]; 

error; * Thinks T (=r!0) >=0 


t«-rl; 

skpUnless[alu<0]; 
aluLTORT1: 

error; * Thinks rl<0 
rscr<-t; 

skpUnless[alu< 0]; 

error; * Thinks T (=rl) >=0 


t«-r01; 

skpUnless[alu<0]; 
aluLTORTOl: 

error; * Thinks rlO >= 0 
rscr<-t; 

skpUnless[alu<0]; 

error; * Thinks T (=rl0) >=0 


* TEST FOR RESULT EVEN 
rEven: 

skpif[r even], t<-rO; 
error; * thinks rO odd 

skpUnless[r even], t<-rl; 
error; * Thinks rl EVEN 

skpif[r even], t«-rhighl; 
error; * Thinks rhighl ODD 

skpUnless[r even], t<-r01; 
error; * Thinks rOl EVEN 

skpif[r even], t<-rl0; 
error; * Thinks rlO ODD 

rGEO: 

skpif[r >=0],t<-rl; 
error; * Thinks rl <0 

skpif [r> = 0], t*-r01; 
error; * Thinks rOl <0 

skpif [r> = 0] , t«-r0; 
error; * Thinks rO <0 

skpUnless[r>=0], t<-rml; 
error; * Thinks RM1>=0 

skpUnless[r> = 0],t<-rhighl; * Thinks rhighl > = 0 
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error; 




o 
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* January 9, 1979 10:42 AM 

% 

reschedTest 

Set and clear resched; see if we can branch on its value. 

% 

reschedTest: 

call[checkTaskNum], t<-t-t; 
skpif[ALU=0]; 
branch[afterResched]; 

noreschedule[]; 
skpif[reschedule']; 

reschedErrl: * we just cleared resched, yet 

error; * branch condition thinks it is set. 

reschedule[]; 
skpif[reschedule]; 

reschedErr2: * we just set resched, yet the 

error; * branch condition doesn’t realize it. 
noreschedule[]; 
afterResched: 
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% 

September 15, 1978 10:56 AM 

TEST XOR USING ALU=0. USE NOOP TO AVOID BYPASS. 

Generally, T <- RSCR<- someFFconstant; 

T 4 - T#(RSCR) 

IF T is non zero, there was an error: one bits in 
the problem. 

% 

xorNoBypass: 

t<-( rscr)<-B0; 
noop; t<-t#(rscr); 
skpif[alu= 0 ]; 

error; * (T «- BO xor (RSCR) ) NE 0 

t<-( rscr)«-Bl; 
noop; t<-t#(rscr); 
skpif[alu= 0 ]; 

error; * (T <- B1 xor (RSCR) ) NE 0 

xorNoBypassB2: 

t *-( rscr)<-B2; 
noop; t«-t#(rscr); 
skpif[alu= 0 ]; 

error; * (T «- B2 xor (RSCR) ) NE 0 

t«-( rscr)<-B3; 
noop; t<-t#(rscr); 
skpif[alu= 0 ]; 

error; * (T <- B3 xor (RSCR) ) NE 0 

t«-( rscr)<-B4; 
noop; t«-t#(rscr); 
skpif[alu= 0 ]; 
xorNoBypassB4: 

error; * (T <- B4 xor (RSCR) ) NE 0 

t<-( rscr)*-B5; 
noop; t«-t#(rscr); 
skpif[alu= 0 ]; 

error; * (T «- B5 xor (RSCR) ) NE 0 

xorNoBypassB 6 : 

t<-( rscr)*-B 6 ; 
noop; t*-t#(rscr); 
skpif[alu= 0 ]; 

error; * (T <- B 6 xor (RSCR) ) NE 0 

t<-( rscr)«-B7; 
noop; t«-t#(rscr); 
skpif[alu= 0 ]; 

error; * (T <- B7 xor (RSCR) ) NE 0 

xorNoBypassB 8 : 

t<-( rscr)*-B 8 ; 
noop; t<-t#(rscr); 
skpif[alu= 0 ]; 

error; * (T «- B 8 xor (RSCR) ) NE 0 


t<-( rscr)<-B9; 
noop; t<-t#(rscr); 
skpif[alu=0]; 

error; * (T B9 xor (RSCR) ) NE 0 

xorNoBypassBIO: 

t<-( rscr)<-B10; 
noop; t<-t#(rscr); 
skpif[alu=0]; 

error; * (T <- B8 xor (RSCR) ) NE 0 

t<-( rscr)*-Bll; 
noop; t«-t#(rscr); 
skpif[alu=0]; 


T indicate 
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error; » (T <- BIO xor (RSCR) ) NE 0 

t<-( rscr)<-B12; 
noop ; rscr); 

skpif[alu = 0]; 
xorNoBypassB12: 

error; * (T «- B12 xor (RSCR) ) ME 0 

t<-( rscr)«-B13; 
noop; rscr); 

skpif[alu = 0]; 

error; * (T <- B13 xor (RSCR) ) ME 0 

xorMoBypassB14: 

t<-( rscr)<-B14; 
noop; t*-t#( rscr); 
skpif[alu = 0]; 

error; * (T <- B14 xor (RSCR) ) ME 0 

t<-( rscr)<-B15; 
noop; t<-t#( rscr); 
skpif[alu = 0]; 

error; * (T <- B15 xor (RSCR) ) NE 0 
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* October 25, 1978 4:06 PM 

% bypass 

This code checks the decision portion of the bypass circuitry. There are at least two different 
** issues associated with bypass: 1) should a bypass be done, and 2) do the bypass data paths work. Thi 
**s test addresses point 1. 

% 

rvrel[rmxlO, 10]; 
bypass: 

RBASE 4- Os; 

t<-rmx0«-cml; * this is the old, stable version 

rmx0*-t-t; * this is the new version 

t<-rmx0; * should use bypassed version of rmxO 
skpif[alu=0]; 

bypassErrO: * bypass associated w/ rm addr 0 doesn't 

error; * seem to work 

t*-rmxl«-cml; * this is the old, stable version 

rmxl«-t-t; * this is the new version 

t«-rmxl; * should use bypassed version of rmxl 
skpif[alu=0]; 

bypassErrl: * bypass associated w/ rm addr 1 doesn’t 

error; * seem to work 

t«-rmx2«-cml; * this is the old, stable version 

rmx2«-t-t; * this is the new version 

t<-rmx2; * should use bypassed version of rmx2 
skpif[alu=0]; 

bypassErr2: * bypass associated w/ rm addr 2 doesn’t 

error; * seem to work 

t«-rmx4«-cml; * this is the old, stable version 

rmx4«-t-t; * this is the new version 

t«-rmx4; * should use bypassed version of rmx4 
skpif[alu=0]; 

bypassErr4: * bypass associated w/ rm addr 4 doesn’t 

error; * seem to work 

t<-rmxlO<-cml; * this is the old, stable version 

rmxlO«-t-t; * this is the new version 

t<-rmxlO; * should use bypassed version of rmxlO 

skpif[alu=0]; 

bypassErrlO: * bypass associated w/ rm addr 10 doesn't 

error; * seem to work 

% 

This section of the test works by changing Rbase. 

% 

RBASE 4- 2s; 

t«-rmxO<-cml; * this is the old, stable version 

rmxO^t-t; * this is the new version 

t^rmxO; * should use bypassed version of rmxO 
skpif[alu=0]; 

bypassErr20: * bypass associated w/ rm addr 20 doesn’t 

error; * seem to work 

RBASE 4- 4s; 

t4-rmx0<-cml; * this is the old, stable version 

rmx0*-t-t; * this is the new version 

t«-rmx0; * should use bypassed version of rmxO 
skpif[alu=0]; 

bypassErr40: * bypass associated w/ rm addr 40 doesn’t 

error; * seem to work 

RBASE 4- 10s; 

t4-rmx04-cml; * this is the old, stable version 

rmx0<-t-t; * this is the new version 

t4-rmx0; * should use bypassed version of rmxO 
skpif[alu=0]; 

bypassErrlOO: * bypass associated w/ rm addr 100 doesn’t 

error; * seem to work 


o 


RBASE 4 - rbase[defaultRegion]; 
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% 

August 30, 1977 6:29 PM 

TEST XOR USING ALU=0. 

Generally, T <- RSCR*- someFFconstant; 

T <- T#(RSCR) 

IF T is non zero, there was an error: one bits in 
the problem. 

% 

* TEST XOR USING ALU=0. CHECK BYPASS. 

xorBypass: 

t*-( rscr)*-B0; 
t«-t#( rscr); 
skpif[ALU=0]; 

error; * (T <- BO xor (RSCR) ) NE 0 

t<-( rscr)<-Bl; 
t<-t#( rscr); 
skpif[ALU=0]; 

error; * (T *- B1 xor (RSCR) ) NE 0 

t«-( rscr)<-B2; 
t<-t#( rscr); 
skpif[ALU=0]; 
xorBypass2: 

error; * (T <- B2 xor (RSCR) ) NE 0 

t<-( rscr)<-B3; 
t<-t#( rscr); 
skpif[ALU=0]; 

error; * (T B3 xor (RSCR) ) NE 0 

t<-( rscr)<-B4; 
t«-t#( rscr); 
skpif[ALU=0]; 
xorBypass4: 

error; * (T <- B4 xor (RSCR) ) NE 0 

t<-( rscr)<-B5; 
t<-t#( rscr); 
skpif[ALU=0]; 

error; * (T *- B5 xor (RSCR) ) NE 0 

t<-( rscr)<-B6; 
t<-t#( rscr); 
skpif[ALU=0]; 
xorBypassB6: 

error; * (T «- B6 xor (RSCR) ) NE 0 

t*-( rscr)«-B7; 
t<-t#( rscr); 
skpif[ALU=0]; 

error; * (T <- B7 xor (RSCR) ) NE 0 

t*-(rscr)<-B8; 
t*-t#( rscr); 
skpif[ALU=0]; 
xorBypassBS: 

error; * (T «- B8 xor (RSCR) ) NE 0 

t*-( rscr)<-B9; 
t<-t#( rscr); 
skpif[ALU=0]; 

error; * (T 4- B9 xor (RSCR) ) NE 0 

t«-( rscr)«-B10; 
t*-t#( rscr); 
skpif[ALU=0]; 
xorBypassBIO: 

error; * (T «- BIO xor (RSCR) ) NE 0 


T indicate 


t<-( rscr)*-Bll; 
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t<-t#( rscr); 
skpif[ALU=0]; 

error; * (T «- Bll xor (RSCR) ) NE 0 

t<-( rscr)<-B12; 
t*-t#( rscr); 
skpif[ALU=0]; 
xorBypassB12: 

error; * (T *- B12 xor (RSCR) ) NE 0 

t<-(rscr)<-B13; 
t<-t#( rscr); 
skpif[ALU=0]; 

error; * (T <- B13 xor (RSCR) ) NE 0 

t<-( rscr)«-B14; 
t<-t#( rscr); 
skpif[ALU=0]; 
xorBypassB14: 

error; * (T <- B14 xor (RSCR) ) NE 0 

t«-( rscr)<-B15; 
t<-t#( rscr); 
skpif[ALU=0]; 

error; * (T <- B15 xor (RSCR) ) NE 0 


rscr «- t-t; 

rscr <- lc; 

skpif[R ODD], rscr; 

RoddByPassErrO: * fast branch r odd bypass doesn't work 
error; * Rscr has 1 in it 


rscr «- t-t; 

skpllnless[R ODD], rscr; 

RoddByPassErrl: * fast branch r odd bypass doesn’t work, 
error; * rscr has zero in it. 
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* August 30, 1977 6:29 

°/ 

PM 


TEST ALU ADDITION AND SUBTRACTION: 

A+l A+B A-l A-B 

% 



Aplusl: 

t«-(r0) + l; 
t<-( rl)#t; 
skpif[alu = 0]; 
error; 

* I = t«-r0+l 



Apluslb: 

t<-( rml ) + l; 
skpif[alu=0]; 
error; 

* 0 = t<-rml+l 



Apluslc: 

rscr<-CM2; 
t«-( rscr)+l; 
t<-t#(rml); 
skpif[alu=0]; 
error; 

4t 

-H 

II 

II 

ro 

+ 



Aplusld: 

rscr«*5C; 
t«-( rscr)+l; 
rscr<-6C; 
t«-t#( rscr); 
skpif[alu=0]; 
error; 

5,8 (T=6) =5+1 


o 

AplusB: 

t«-r0; 
t<-t+( rO); 
skpif[alu=0]; 
error; 

* 0=0+0 



AplusBb: 

t<-rl; 
t*-t+( rO); 
t<-t#(rl); 
skpif[alu=0]; 
error; 

* 1=1+0 



AplusBc: 

t+rO; 
t<-t+(rl); 
t<-t#(rl); 
skpif[alu=0]; 
error; 

* 1=0+1 



AplusBd: 

t<-rml; 
t<-t+( rO); 
t<-t#( rml); 
skpif[alu=0]; 
error; 

* -l=-l+0 



AplusBe: 

t<-rml; 
t+t+( rml); 
rscr<-177776C; 
t<-t#( rscr); 
skpif[alu=0]; 
error; 

* -2=-l+-l 


o 

AplusBf: 

t«-rml; 
t«-t+( rl); 
skpif[alu=0]; 
error; 

* 0=-l+l ! 

i 



Apl usBg: 

t+rl; 
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t<-t+( rml); 
skpif[alu=0]; 
error; 

AplusBh: 

t«-r01; 
t+t+( rlO); 
t<-t#( rml); 
skpif[alu = 0]; 
error; 

AplusBi: 

t+rlO; 
t«-t+(rOl); 
t<-t#( rml); 
skpif[alu = 0]; 
error; 

AplusBj: 

t«-rhighl; 
t+t+( rhighl); 
skpif[alu = 0]; 
error; 

AplusBk: 

t<-rhighl; 
t<-t+( rml); 
rscr<-77777C; 
t«-t#( rscr); 
skpif[alu=0]; 
error; 


* 0 = 1+-1 


* -1=52525+125252 


* -1=125252+52525 


* 0 = 100000+100000 


* 77777=100000+177777 


AplusBl: 

t*-rml; 

t«-t+(rhighl); 
rscr<-77777C; 

t«-t#( rscr) ; * 77777 = 177777+100000 

skpif[alu=0]; 

error; 

* August 9, 1977 12:30 PM 

% 

TEST A-l 

% 


Aminusl: 

rscr<-rO; 

AminuslL: * CHECK A-l IN A LOOP FOR ALL 16 BIT VALUES. 

t*-( rscr)-l; 
t**t+l; 

t<-t#(rscr); * t«- (rscr-1+1) xor rscr 

skpif[alu=0]; 

error; 

rscr<-( rscr)+l; * rscr IS LOOP CTRL 

dblBranch[.+1,AminuslL f ALU=0]; 
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* 

% 

TEST A-B 

% 

aMinusB: 

t<-r0; 

t«-t-(rl); * T 4- 0 -1 

t<-t#( rml); 
skpif[alu=0]; 

error; * T SHOULD HAVE BEEN -1 

aMinusBb: 

t«-r0; 

t<-t-(rml); * t«-0 - (-1) 

t<-t#(rl); 

skpif[alu=0]; 

error; * T SHOULD HAVE BEEN 1 


aMinusBc: 

t<-rO; 

rhighl); * t<- 0 - (100000) 

t«-t#( rhighl); 
skpif[alu=0]; 

error; * T SHOULD HAVE BEEN 100000 

aMinusBd: 

t<-100C; 

t<-t-(rl); * t <- 100 -1 

rscr*-77C; 
t«-t#( rscr); 
skpif[alu=0]; 

error; * T SHOULD HAVE BEEN 77 

aMinusBe: 

t<-rscr<-17C; 

t<-t-(rscr); * t <- 17 - 17 

t<-t#(rO); 

skpif[alu=0]; 

error; * T SHOULD HAVE BEEN 0 

aMinusBf: 

t<-rscr<-177C; 

t<-t-(rscr); * t «* 177 - 177 

t<-t#(rO); 

skpif[alu=0]; 

error; * T SHOULD HAVE BEEN 0 

aMinusBg: 

t«-rscr<-377C; 

t<-t-(rscr); * t <- 377 - 377 
t<-t#( rO); 
skpif[alu=0]; 

error; * T SHOULD HAVE BEEN 0 

aMinusBh: 

t<-rscr<-400C; 

t<-t-(rscr); * t <- 400 - 400 

t<-t#(rO); 

skpif[alu=0]; 

error; * T SHOULD HAVE BEEN 0 


aMinusBi: 

t«-rscr«-777C; 

t<-t-(rscr); * t «- 111 - 111 
t<-t#(rO); 
skpif[alu=0]; 

error; 555 T SHOULD HAVE BEEN 0 



aMinusBj: 

t<-rscr«-1777C; 

t«-t-( rscr); * t <- 1777 - 1777 

t«-t#(rO); 

skpif[alu=0]; 

error; * T SHOULD HAVE BEEN O' 
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* January 18, 1979 5:24 PM 

% 

TEST FAST BRANCH CONDITION: CARRY 

FIRST TEST WHEN WE KNOW THERE IS NO CARRY, THEN TRY TO 
GENERATE A CARRY AND BRANCH ON IT. NOTE: THIS CODE DEPENDS UPON 
THE ALU FUNCTIONS PLUS AND MINUS WORKING. 

% 

carryNo: 

t«-( r0) + ( rO); 
skpUnless[carry]; 

error; * rO + rO SHOULD NOT CAUSE CARRY 

carryNob: 

t<-rml; 

t<-t+( rO); 

skpUnless[carry]; 

error; * rml + rO SHOULD NOT CAUSE CARRY 

carryNoc: 

t*-rlO; 
t«-t+( rOl); 
skpUnless[carry]; 

error; * rlO + rOl SHOULD NOT CAUSE CARRY 

carryNod: 

t<-77777C; 
t*-t+( rO); 
skpUnless[carry]; 

error; * 77777C + rO SHOULD NOT CAUSE CARRY 

carryNoe: 

t<~rO; 
t<-t+( rl); 
skpUnless[carry]; 

error; * rO + rl SHOULD NOT CAUSE CARRY 

carryNof: 

t«-r01; 
t«-t-(rlO); 
skpUnless[carry]; 

error; * rOl - rlO SHOULD NOT CAUSE CARRY 

carryNog: 

t«-rO; 

t<-t-(rlO); 
skpUnless[carry]; 

error; * rO + rlO SHOULD NOT CAUSE CARRY 

* NOW TRY SOMETHINGS THAT SHOULD GENERATE A CARRY 

carryYes: 

t«*rml; 
t<-t-(rl); 
skpif[carry]; 

error; * -1 -(+1) SHOULD CAUSE CARRY 

carryYesb: 

t«*rml; 

t«-t+(rhighl); 
skpif[carry]; 

error; * -1 + 100000 SHOULD CAUSE CARRY 

carryYesc: 

t<-rml; 
t«-t+(rl); 
skpif[carry]; 

error; * -1 + 1 SHOULD CAUSE CARRY 

carryYesd: 

t<-rhighl; 
t<-t-(r01); 
skpif[carry]; 

error; * 100000 - rOl SHOULD CAUSE CARRY 
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carryYese: 

t<-rhighl; 
t<-t+( rhighl); 
skpif[carry]; 

error; * 100000 + 100000 SHOULD CAUSE CARRY 

* NOW COMPLICATE THINGS INTERLEAVING ALU OPS W/ TESTS 

carryOps: 

t+rO; 

t^t-(rl); * t<-0-l 

skpUnl ess[carry] , t«-t+( rml) ; * t<—1+-1 

error; * 0-1 SHOULD NOT CAUSE CARRY 

carryOpsb: 

skpif [carry] , t<-t+( rhighl); * T + -2+100000 

error; * -1+-1 SHOULD CAUSE CARRY 

carryOpsc: 

skpif[carry],t+t+(rhighl); * t+ 77776 + 100000 

error; * -2 + 100000 SHOULD CAUSE CARRY 

carryOpsd: 

skpUnless[carry]; 

error; * 77776 + 100000 SHOULD NOT CAUSE CARRY 

carryOpse: - ■ 

t+rml; 

t+t-( rl); * t<- -l-(+l) 

skpif [carry] , t+t-( rOl); * t<- -2 -rOl 
error; * -1-1 SHOULD CAUSE CARRY 

carryOpsf: 

skpif[carry]; 

error; * 177776 - 52525 SHOULD CAUSE CARRY 
reschedule; 


o 
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* test the branch conditions when reschedule is ON 

t«-r0; 

t«-t-( rl); * t+0-1 

skpUnl ess[carry] , t+t+( rml); * 1+-1+-1 

error; * 0-1 SHOULD NOT CAUSE CARRY 
carryOpsRb: 

skpif [carry] , t<-t+( rhighl); * T <- -2+100000 

error; * -1+-1 SHOULD CAUSE CARRY 

carryOpsRc: 

skpif[carry],t+t+(rhighl); * t«- 77776 + 100000 

error; * -2 + 100000 SHOULD CAUSE CARRY 

carryOpsRd: 

skpUnless[carry]; 

error; * 77776 + 100000 SHOULD NOT CAUSE CARRY 

carryOpsRe: 

t<-rml; 

t+t-(rl); * t+ -l-(+l) 

skpif[carry],t«-t-(rOl); * t+ -2 -rOl 
error; * -1-1 SHOULD CAUSE CARRY 

carryOpsRf: 

skpif[carry]; 

error; * 177776 - 52625 SHOULD CAUSE CARRY 
t+rO; 

skpif[ALU=0]; 
rescheqObr: 

error; 

t<-rl; 

skpif[ALU#0]; 
reschneObr: 

error; 

skpif[r even], B+rO; 
reschevenbr: 

error; 

skpif[r odd], B+rl; 
reschoddbr: 

error; 
t<-rhighl; 
skpif[alu<0]; 
reschltObr: 

error; 

t<-rO; 

skpif[alu>=0]; 
reschgeObr: 

error; 


noreschedule; 
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* September 15, 1978 11:38 AM 

% 

TEST FREEZEBC FUNCTION 

Generate the two different branch conditions and freeze them. Force the 
carry to be explicitly different, see if the frozen branch is still there. 
Unfreeze and make sure the expected results happen. 


% 

freezeBCtest: 

t*-rml; 

t«-t+( rl); * t<- 0 <- -1+1 (SHOULD CAUSE carry) 

skpif[carry] ,t*-t+( rl) ,f reezeBC; * FREEZE[carry=l] 
error; 


* carry WAS FROZEN. CONTINUE THAT WAY (carry+1, RESULt<-0) 
freezeBCla: 

skpif[alu=0],freezeBC; * ( result was ZERO) 
error; 


t«-(rml)+(rml),freezeBC; * Would normally CAUSE RESULT <0 

skpif[alu>=0],freezeBC; * ( result was ZERO) 

error; 

freezeBClb: 

t+(rl)+(rl) ,freezeBC; * t<- 0+1 (carry Would NORMALLY BE ZERO) 

skpif[carry],freezeBC; 

error; 


t<-tAND( rml) ,f reezeBC; * t<-l and -1 (TEST IT A FEW MORE TIMES) 

skpif[carry],freezeBC; 

error; * carry SHOULD HAVE BEEN 1 


freezeBClc: 

t«-t+( rO), f reezeBC; * t+1+0 

skpif[carry],freezeBC; 

error; * carry SHOULD HAVE BEEN 1 


* ALLOW A NEW alu RESULT CONDITION, KEEP carry THE SAME(carry=l, RESULT=77777) 
freezeBC2a: 

t«-rml ,f reezeBC; 

t+t+( rhighl); * carry<-l, RESULt+77777 

t<-( r0) + ( rO) ,f reezeBC; 

skpif[alu#0],freezeBC; * result was 77777 
error; 

freezeBC2b: 

t«-t+( rO) ,f reezeBC; * Would normally ZERO carry 

skpif[carry],freezeBC; * carry SHOULD BE ONE 

error; 


freezeBC2c: 

t+rml,freezeBC; 
t<-t+(rO),freezeBC; 

skpif[alu>=0],freezeBC; * result was 77777 
error; 


* FORCE car ry<-0, RESULt<-0 
t<-r0 ,f reezeBC; 

t+t+( rO); * t<-0+0 (SHOULD CAUSE carry<-0, RESULt<-0) 

t^-(rhighl) + (rhighl) ,f reezeBC; * Would NORMALLY CAUSE carry<-l 

freezeBC3a: 

skpUnless[carry],freezeBC; * FREEZE IT AT ZERO 

error; * EXPECTED 0 carry GOT 1 carry 

t<-( rl) + ( rl),f reezeBC; 

skpif[alu=0],freezeBC; * test it again just to see 
error; 


freezeBC3b: 

t+(rml) + (rml),f reezeBC; 

skpif[alu>=0],freezeBC; * test it again just to see 
error; 
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* FORCE 



carry<-0, RESULT «- 
t<-( rml)+( rml); 
t<-t+( rl); * 


-1 

-2+1 = = > carry<-0, 


RESULt«~l 


freezeBC4a: 

t«-t+( rl) ,f reezeBC; * -1+1 Would normally CAUSE carry*-l 

skpUnless[carry],freezeBC; 

error; 


freezeBC4b: 

t<-( rl)+( rl) ,f reezeBC; *Would normally CAUSE alu>=0 

skpUnless[alu> = 0],f reezeBC; 

error; 

freezeBC4c: 

skpUnless[alu=0]; 

error; 


o 


o 
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* March 26, 1979 11:04 AM 

%*+++++++++++++++++++++++++++++++++++++++++*!—!•+++++++++++++++++++ 
overflowTest f 

Perform an exhaustive test of the overflow condition. Even though we expect the arithmetic result of R 
**M+T to be identical to T+RM, we test all possible combinations since the arithmetic gets implemented 
**inside a rather complicated chip. 

The tables below show the aluA and aluB inputs, and the carry out values for bO, bl. Notice the conten 
**ts of the table are not the sum of a,b, but the carry out values. The subtraction table shows the or 
**iginal input for B and then its converted value after the number gets converted to a twos complement 
**value (the chip converts it to the twos complement form, then adds). 

For Addition 


B input= 


00 

01 

10 11 


A input 
00 

00 

00 

00 

00 


01 

00 

01 

00 

11 

Notice these values represent the carry 

** out values 

10 

00 

00 

10 

10 

for bO.bl during addition. They presum 

**e carry-in to 
11 

00 

11 

10 

11 

bl is zero 


%*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

mcfxQl, 40000]; 

mc[xl0, 100000]; 

mc[xll, 140000]; 

overf1owTest: 

t <- t-t; 
t «- t + t; 
skpif[overflow’]; 

overflErrO: * 0+0 should not cause overflow 

error; 
t+t-t; 
t«-t+(x01); 
skpif[overf1ow’]; 

overflErrl: * see 0+01 entry 

error; 
t + t-t; 
t + t + (xlO); 
skpif[overf1ow’]; 

overflErr2: * see 0+10 entry 

error; 
t+t-t; 
t+t+(xl1); 
skpif[overflow']; 
overflerr3: * see 0+11 entry 
error; 

t+rscr+xOl; * keep xOl in rscr for a while 
t + t + (0c); 
skpif[overflow’]; 


see 01+0 entry 


overf1Err4 

error; 
terser; 

t + t + (xOl); 
skpif[overflow]; 
overf1Err5: * see 01 

error; 
t+rscr; 

t + t + (xlO); 
skpif[overf1ow']; 
overFLerr6: 

error; * see 01 + 10 entry 

terser; 

t«-t+(xll); 

skpif[overflow’]; 

overflErr7: * see 01 + 11 entry 

error; 


* FIRST TRY FOR OVERFLOW 
01 entry 


t<-rscr+xl0; * keep xlO in rscr for a while 
t <- t + (0c); 
skpif[overflow’]; 

overflErrlO: * see 10+0 entry 

error; 
t+rscr; 

t + t + (x 01); 
skpif[overflow’]; 

overflErrll: * see 10 + 01 entry 



I 


i 

fe 

( 


i 


i 



i 
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error; 

terser; 

t «- t + (xlO); 
skpif[overflow]; 
overfLerrl2: 

error; * see 10 
terser; 
t«-t+(xll); 
skpif[overflow]; 
overf!Errl3: * see 10 

error; 


10 entry 


11 entry 


t<-rscr<-xll; * keep xll in rscr for a while 
t «- t + (0c); 
skpif[overflow']; 

overf!Errl4: * see 11+0 entry 

error; 
terser; 

t «- t + (xOl); 
skpif[overflow']; 

overflErrl5: * see 11 + 01 entry 

error; 
terser; 

t <- t + (xlO); 
skpif[overflow]; 
overFLerrl6: 

error; * see 11 + 10 entry 

terser; 

t*-t+(xll); 

skpif[overflow*]; 

overf!Errl7: * see 11 + 11 entry 

error; 

goto[afterKernel1]; 



o 
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% 

Page Numbers: Yes First Page: 1 
Heading: 

kernel2.mc January 18, 1979 2:07 PM % 

* INSERT[D1ALU.MC]; 

* TITLE[KERNEL2]; 

* INSERT[PREAMBLE.MC]; 
top level ; 
beginKernel2: 

% 

January 20, 1978 3:13 PM 

% 

% 

TEST CONTENTS 
cntRW read and write CNT 
cntFFrw read and write CNT, load from FF 
cntFcn test CNT=0&+1 fast branch 
NotAtest test alu op, NOT A 

NotBtest test alu op, NOT B 

AandBtest test alu op, A AND B 

AorBtest test alu op, A OR B 

LINKRW read and write LINK 

callTest global and local subroutine calls 

QtestRW read and write Q, q lsh 1, q rsh 1 
tioaTest load and read tioa from FF and from bmux 

STKPtestRW read and write STKP, perform TIOA&STKP 

rstkTestO write different RM address from one read 

% 

% 

January 18, 1979 2:07 PM 

Add tioaTest 

% 
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* October 19, 1978 5:22 PM 

% 


% 


TEST ALL THE BITS IN CNT: REMEMBER THAT CNT CAN BE LOADED FROM 
BOTH B AND FF. 


cntRW: 

t <- ent 4- rO; * test loading ent w/ 0 
rscr 4* ent; 

t «- t # (rscr); * t «- bits read from ent if expected bits 
skpif[ALU=0]; 

cntErrl: * t = bad bits, rscr = expected 

error; * value of ent 

t ent 4- rml; * test loading ent w/ -1 

rscr 4- ent; 

t 4- t # (rscr); * t «- bits read from ent if expected bits 
skpif[ALU=0]; 

cntErr2: * t = bad bits, rscr = expected 

error; * value of ent 

t 4- ent 4 - rOl; * test loading ent w/ alternating 01 
rscr 4 - ent; 

t 4- t if (rscr); * t *• bits read from ent if expected bits 
skpif[ALU=0]; 

cntErr3: * t = bad bits, rscr = expected 

error; * value of ent 

t 4 - ent 4 - rlO; * test loading ent w/ alternating 10 
rscr 4 - ent; 

t 4 - t # (rscr); * t 4- bits read from ent ff expected bits 
skpif[ALU=0]; 

cntErr4: * t = bad bits, rscr = expected 

error; * value of ent 

* October 19, 1978 8:33 PM 

cntFFrw: * TEST FF BITS FOR LOADING ent 

cnt«-lS; 
t<-cnt; 

t^-t#(rl); * we set it to 1; check the val. 

skpif[ALU=0]; 

cntFFrwl: * t=bad bits, l=expected value 

error; 

ent 4- 2s; 
t<-cnt; 

t 4- t # (2c); 
skpif[ALU=0]; 

cntFFrw2: * t = bad bits, 2 = expected value 

error; 

ent <r 4s; 
t 4- ent; 
t 4- t ff (4c); 
skpif[ALU=0]; 

cntFFrw3: * t = bad bits, 4 = expected 

error; 

ent 4- 10s; 
t 4- ent; 
t 4- t # (10c); 
skpif[ALU=0]; 

cntFFrw4: * t = bad bits, 10c = expected 

error; 


i 
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* October 30, 1978 1:54 PM 

% 

TEST ent BY LOOPING FOR ALL VALUES OF ent 
AT POINTS TESTED, ent AND rscr SHOULD BE EQUAL. 

rscr<-cnt<--l; -- test ent for maximum iterations 

WHILE ent NE 0 DO 
cnt<-cnt-l; 

IF rscr=0 THEN ERROR; 
rscr<-rscr-l; 

ENDLOOP; 

IF rscr NE 0 THEN ERROR 

% 

entFen: 

t <- rscr«-cml; * t rscr <- initial value into ent 
cnt<-t; * ent «- initial value 

entFenIL: 

branch[cntFcnXitIL, cnt=0&-l], PD <- rscr; 
skpUnl ess[ALU=0], PD<-rscr; 
cntFcnErrl: * value of rscr suggests we 

error; * should have exited 
branch[cntFcnIL] , rscr«-( rscr)-1; 
cntFcnXitIL: 

skpif[ALU=0]; 

cntFcnErr2: * rscr#0. value of rscr suggests we 

error; * should not have exited. 

ent <- rO; * test ent for initial value = zero 

skpif[cnt=0&-l]; 

cntFcnErr3: * didn't notice first value we loaded 

error; * was zero 
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* August 31, 1977 12:48 PM 

% Test not A, not B 

% 


MotAtest: 

t*-not(A<-r0); 
t<-t#( rml); 
skpif[ALU=0]; 
error; * ~R0 # RM 

MotAb: 

t*-not(A<-rml); 
t^-t#( r0) ; 
skpif[ALU=0]; 
error; * -rml # rO 

MotAc: 

t<-not(A«-r01); 
t«-t#( rlO); 
skpif[ALU=0]; 
error; * -rOl # rlO 

NotAd: 

t<-not(A«-rlO); 
t«-t#( rOl); 
skpif[ALU=0]; 
error; * -rlO # rOl 

NotAe: 

rscr<-177776C; 

t<-not(A<-rl); 

t*-t#( rscr); 

skpif[ALU=0]; 

error; * ~rl # 177776 

NotBtest: 

t<-not(B<-rO); 
t«-t#( rml) ; 
skpif[ALU=0]; 
error; * ~R0 # RM 

NotBTestb: 

t<-not(B*-rml); 
t*-t#(rO); 
skpif[ALU=0]; 
error; * -rml # rO 

NotBTestc: 

t<-not(B«-r01); 
t*-t#( rlO); 
skpif[ALU=0]; 
error; * -rOl # rlO 

NotBTestd: 

t«-not(B<-rlO); 
t*-t#( rOl); 
skpif[ALU=0]; 
error; * -rlO # rOl 

NotBTeste: 

rscr<-177776C; 

t<-not(B<-rl); 

t*-t#(rscr); 

skpif[ALU=0]; 

error; * -rl # 177776 

% 

Test A AND B 

Assume a,b source dont matter. Ie., 
t«-(b«-t) and (a<-r) = 
t<-(a*-t) and (b«-r) 

% 

AandBtest: 

t«-rml; 

t<-tAND( rml); 
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t<-t#( rml); 
skpif[ALU=0]; 

error; * (rml AND rml) #rml 


t<-r01; 

t<-tAND( rlO) ; 

skpif[ALU=0]; 

error; * (rOl AND rlO) 


t<-rO; 

t«-tAND( rml) ; 

skpif[ALU=0]; 

error; * r0 AND rml 


% 

Test A orB. 

Assume same as AandB test. 

% 

AorBtest: 

t«-rml; 
t<-tOR(rO); 
t<-t#(rml); 
skpif[ALU=0]; 

error; * (rml OR rO) # rml 

AorBtestb: 

t<-r01; 
t<-tOR( rlO); 
t*-t#(rml); 
skpif[ALU=0]; 

error; * (rOl OR rlO) # rml 


AorBtestc: 

t«-rml; 
t<-tOR( rml); 
t«-t#( rml); 
skpif[ALU=0]; 
error; * (rml 


OR rml) # rml 


AorBtestd: 

t<-r01; 
t<-tOR(r01); 
t<-t#(rOl); 
skpif[ALU=0]; 

error; * (rOl OR rOl) # rOl 


AorBteste: 

t*-rlO; 
t«-tOR( rlO); 
t<-t#( rlO); 
skpif[ALU=0]; 

error; * (rlO OR rlO) # rlO 

AorBtestf: 

t«-(rO)OR(rO); 

t<-t#( rO); 

skpif[ALU=0]; 

error; * (rO OR rO) # rO 


o 
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* February 17, 1978 8:51 AM 

% 

LINK READ/V/RITE TEST + MINOR TEST OF CALL 


FOR I IN[0..7777B] DO 
LINK*-1; 

CHECK*-LINK; 

CHECK *- BITAND[CHECK, 7777B] ; 
IF CHECK NE LINK THEN ERROR; 
ENDLOOP; 

minor test of LINK, call 

% 


linkRW: 

rscr*-7777C; * BEGIN W/ MAX LINK VALUE & COUNT DOWN 

linkL: 

link*- rscr; 
t <- link; 

t <- t and (77777C); * ISOLATE 15 BITS ’CAUSE OF DMUX DATA 

t*-t#( rscr); 
skpif[alu=0]; 

1inkErrl: 

error; * LINK DOESN’T HAVE THE VALUE WE LOADED 


rscr<-( rscr)-l; 

dblBranch[1inkL,afterLink, alu<0] ; 


afterLink: 



o 
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* November 3, 1978 6:40 PM 

% 

TEST Q: READ AND WRITE 

FOR I IN [0. .177777B] DO 
Q<-1; 

t<-Q XOR I; 

IF T #0 THEN error; 

ENDLOOP; 

then test q Ish 1, q rsh 1 w/ selected values 
% 


QtestRW: 

rscr«-r0; 




QRWL: 

Q<-( rscr); 

t*-( A*-rscr)#(B*-Q); 

skpif[ALU=0]; 

QrwErr: 

error; 

rscr«-( rscr)+l; 
dblBranch[.+l,QRWL,ALU=0]; 

* now check rshl, lshl 
q <- r0; 

q Ish 1; * q <- 0 Ish 1 

PD «- q; 
skpif[ALU=0]; 

qrOLerr: * rO Ish 1 should be zero 

error; 

q «- rOl; 

q Ish 1; * q <- rOl Ish 1 

(q) # (rlO); 

skpif[alu=0]; 

qrlOLerr: * rlO lshl should be rOl. (zero fill) 

error; 

q «- rml; 
q Ish 1; 
t «- cm2; 

(q) # t; 

skpif[ALU-0]; 

qrmlLerr: * -1 lshl w/ zero fill should be -2 

error; 

q rhighl; 

q Ish 1; * q <- 100000B Ish 1 

P D «- q; 
skpif[ALU=0]; 

qrhighlLerr: * rhighl (100000B) lshl w/ zero fill should 

error; * zero 

q <- rO; 

q rsh 1; * zero rshl should be zero 

P D <r q; 
skpif[ALU=0]; 

qrORerr: 

error; * zero rshl should be zero 
q <- rlO; 

q rsh 1; * q «- rlO rsh 1 

(q) # (rOl); 
skpif[ALU=0]; 

qrlORerr: * rlO rsh 1 w/ zero fill 

error; * should be rOl 

q <- rml; 

q rsh 1; * q «- -1 rsh 1; 

t <- 77777c; 

(q) # t; 

skpif[ALU=0]; 

qrmlRerr: * -1 rsh 1 w/ zero fill should be 77777B 
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error; 
q <- rhighl; 

q rsh 1; * q «- 100000B rsh 1 

t «- 40000C; 

(q) # t; 
skpif[ALU=0]; 

qrhighlRerr: * rhighl rshl should be 40000B 

error; 


o 
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* January 18, 1979 1:29 PM 

% 

tioaTest 

Test the processor's ability to read and write TIOA. Write TIOAk from both FF constants and from RM. 
% 

tioaTest: 

t 4- 377c; 
ent <- t; 
rscr2<- t-t; 

tioaL: 

tioa <- rscr2; * RSCR2 = value we load into Tioa 
call[getTioa]; * rtn Tioa, still left justified, in t 

rscr (rscr2) # t; 
skpif[ALU=0]; 

tioaErrl: * We wrote tioa w/ contents of rscr2, got 

error; * back the value in t. Bad bits in rscr. 

loopUntil[cnt=0&-l, tioaL], rscr2 <- (rscr2) + (b7); * increment rscr2 

* Here are device ddeclarations to keep micro happy. We use them to set Tioa directly from FF. 
device[dvc5, b13!] ; device[dvc6, b14!]; device[dvc7, bl5 ! ] ; 

mc[tioa.0thru4C, bO,bl,b2,b3,b4]; 
mc[tioa.mask, 177400]; 

tioa 4- rO; * zero all the bis of tioa 

tioa[dvc7]; * should set tioa[5:7] to 1 
call[getTioa]; 

rscr <- (t) # (b7); * only one bit should be set 

skpif[ALU=0]; 

tiaErr2: * tioa should be 1, (= 1 Ishift 8 = 400) 

error; * t = value of tioa, rscr = bad bits. 


tioa[dvc6]; * should set tioa[5:7] to 2 
cal 1[getTioa]; 

rscr <- t # (b6); * tioa should be 2, (= 1 Ishift 9 = 1000) 

skpif[ALU=0]; 
tioaErr3: 

error; * rscr = bad bits, t = tioa left justified 

tioa[dvc5]; * tioa should be 4 (= 1 Ishift 10 = 2000) 

cal 1[getTioa]; 
rscr 4- t # (b5); 
skpif[ALU=0]; 
tioaErr4: 

error; * rscr = bad bits, t = tioa left justified 


tioa 4 - rml; * all ones into tioa 

tioa[dvc7]; 

cal 1[getTioa]; 

rscr 4 - tioa.0thru4C; 

rscr 4 - (rscr) or (b7); * only should have set tioa[5:7]; 
rscr <- t # (q<-rscr); * q = expected value 
skpif[ALU=0]; 
tioaErr5: 

error; * t = tioa, left justified; rscr = bad bits, q = expected value 


tioa[dvc6]; 

call[getTioa]; * set tioa[5:7] to 2 

rscr 4 - tioa.0thru4C; 

rscr 4 - (rscr) or (b6); * only should have set tioa[5:7]; 
rscr 4 - t # (q<-rscr); * q = expected value 

skpif[ALU=0]; 

tioaErr6: * q = expected value 

error; * t - tioa, left justified; rscr = bad bits 


tioa[dvc5]; 

call[getTioa]; * set tioa[5:7] to 4 

rscr 4 - tioa.0thru4C; 

rscr 4 - (rscr) or (b5); * only should have set tioa[5:7]; 
rscr 4 - t # (q4-rscr); * q = expected value 

skpif[ALU=0]; 

tioaErr7: * q = expected value 

error; * t = tioa, left justified; rscr = bad bits 


branch[afterTioa]; 
getTioa: subroutine; 
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t <- TIOA&STKP; 

return, t <- t and (177400C); * isolate left byte 

top level; 

afterTioa: 



o 
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* October 19, 1978 8:54 PM 

% 

TEST STKP: READ AND WRITE 


FOR I IN[0..377B] DO 
STKP«-I; 
t<-TIOA&STKP[] 
t<-t and (stkpMask); 
t<-t XOR I; 

IF T # 0 THEN error; 

ENDLOOP; 

% 


STKPtestRW: 

t<-r0; 

rscr<-t; * rscr = values loaded into stackp 
rscr2 <- t<-377C; * MASK TO ISOLATE STACKP 
cnt<-t; * mask just happens to be count, too 


stkpL: 

STKP«-rscr; * LOAD STKP FROM rscr 

t «- (TIOA&STKP); 

t<-t AND (rscr2) ; * READ AND MASK THE VALUE 

t*-t#( rscr); 
skpif[ALU=0]; 

stkpErr: 

error; * error: DIDN'T READ WHAT WE LOADED 
dblBranch[. +1, stkpL, CNT = 0&-1] , rscr<-( rscr)+l; 


o 


o 
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* October 26, 1978 12:03 PM 

% 

rstkFF Test the FF operation that replaces rstk with a value from the FF field during rm Writi 
**ng. Test each bitpath only. 

% 

rstkFF: 

q <- rmxO; * save rmxO 

rmxO t-t; * background test rrn location w/ zero 

t <- rmx7 4 - cml; * KEEP >1 IN RMX7, AND T 

rmxO «- rmx7; * write into RM w/ rstk from FF field 

t # (rmxO); * compare target RM w/ expected value 

skpif[alu= 0 ]; 

rstkFFOErr: * can’t write into rstkO w/ ff 

error; 

rmxO <- q; * restore old value 

q 4 - rmxl; * save rmxl 

rmxl <- t-t; * background test rm location w/ zero 

rmxl «- rmx7; * write into RM w/ rstk from FF field 

t # (rmxl); * compare target RM w/ expected value 

skpif[ALU=0]; 

rstkFFlErr: * can’t write into rstkl w/ ff 

error; 

rmxl 4 - q; * restore old value 

q <- rmx2; * save rmx2 

rmx2 <- t-t; * background test rm location w/ zero 

rmx2 <- rmx7; * write into RM w/ rstk from FF field 

t # (rmx2); * compare target RM w/ expected value 

skpif[ALU=0]; 

rstkFF2Err: * can’t write into rstk2 w/ ff 

error; 

rmx2 <- q; * restore old value 

q <- rmx4; * save rmx4 

rmx4 <- t-t; * background test rm location w/ zero 

rmx4 <- rmx7; * write into RM w/ rstk from FF field 

t # (rmx7); * compare target RM w/ expected value 

skpif[ALU=0]; 

rstkFF4Err: * can’t write rstk4 w/ ff 

error; 

rmx4 <- q; * restore old value 

q <r rmxlO; * save rmxlO 

rmxlO «* t-t; * background test rm location w/ zero 

rmxlO «- rmx7; * write into RM w/ rstk from FF field 
t # (rmxlO); * compare target RM w/ expected value 
skpif[ALU=0]; 

rstkFFlOErr: * can't write rstklO w/ ff 

error; 

rmxlO «- q; 



kerne!2.me 


25-Sep-80 14:22:08 


Page 13 



* October 26, 1978 6:14 PM 

% 

rbaseFF test the facility that changes the value of rbase when rm storing occurs. 

% 

* sibling[FoosBrotherInRegion5, 5, foo] * declare FoosBrotherInRegion5 as an RM 

* location in rmRegion 5 with its rstk value the same as the one for foo. Eg., if foo is 

* located at rm addr 17,,12 (rbase = 17, rstk = 12) then FoosBrotherInRegion5 is located 

* at rm addr 5,,12 
m[sibling, 

rm[#l, add[lshift[#2,4], and[17,ip[#3]]]] 

]; 

siblingfrbOrmO, 0, rmxO]; sibling[rblrml, 1, rmxl]; sibling[rb2rm2, 2, rmx2]; 

sibling[rb4rm4, 4, rmx4]; sibling[rblOrmlO, 10, rmxlO]; 

rbaseFF: 

rbase «- rbase[defaultRegion]; 

q *- rmxO; * save current value for "source”- rm 

rbOrmO «- t-t; * zero "destination" rm 

rmxO *■ cml; * t *- "source rm" *■ -1 

rbOrmO *- rmxO; * "destin" rm (different rbase)*- source rm 

rbase *- Os; * check the result. First fetch the value in 

t *• rmxO, RBASE *- rbase[def aul tReg ion]; * the destination rm, then compare it to 

t # (rmxO); * the source rm. An error means we didn’t 

skpif[ALU=0]; 

rbaseFFOErr: * succeed in writing rm with rbase*-0 from 

error; * ff field, t = real val, rmxO=expected val. 

rmxO <- q; * restore old value 

q «- rmxl; * save current value for "source" rm 

t *- rmxl <- cml; * t «- "source rm" *- -1 
rblrml *- t-t; * zero "destination" rm 

rblrml *- rmxl; * "destin" rm (different rbase)*- source rm 
RBASE *- Is; * check the result. First fetch the value in 

t *• rmxl, RBASE *- rbase[def aul tReg ion]; * the destination rm, then compare it to 

t # (rmxl); * the source rm. An error means we didn’t 

skpif[ALU=0]; 

rbaseFFlErr: * succeed in writing rm with rbase*-0 from 

error; * ff field, t = real val, rmxO=expected val. 

rmxl «- q; * restore old value 

q *■ rmx2; * save current value for "source" rm 

t *■ rmx2 *- cml; * t «- "source rm" *- -1 
rb2rm2 *- t-t; * zero "destination" rm 

rb2rm2 *- rmx2; * "destin" rm (different rbase)*- source rm 
RBASE *- 2s; * check the result. First fetch the value in 

t *- rmx2, RBASE *- rbase[def aul tReg ion]; * the destination rm, then compare it to 

t # (rmx2); * the source rm. An error means we didn’t 

skpif[ALU=0]; 

rbaseFF2Err: * succeed in writing rm with rbase<-0 from 

error; * ff field, t = real val, rmxO=expected val. 

rmx2 *- q; * restore old value 

q *- rmx4; * save current value for "source" rm 

t *- rmx4 *- cml; * t *- "source rm" *- -1 
rb4rm4 <- t-t; * zero "destination" rm 

rb4rm4 *- rmx4; * "destin" rm (different rbase)*- source rm 
RBASE *- 4s; * check the result. First fetch the value in 

t *■ rmx4, RBASE *- rbase[def aul tReg ion]; * the destination rm, then compare it to 

t # (rmx4); * the source rm. An error means we didn’t 

skpif[ALU=0]; 

rbaseFF4Err: * succeed in writing rm with rbase*-0 from 

error; * ff field, t = real val, rmxO=expected val. 

rmx4 *- q; * restore old value 

q *- rmxlO; * save current value for "source" rm 

t *- rmxlO «- cml; * t *- "source rm" *- -1 

rblOrmlO *- t-t; * zero "destination" rm 
rblOrmlO *- rmxlO; 

RBASE «- 10s; * check the result. First fetch the value in 

t *■ rmxlO,RBASE *- rbase[def aul tReg ion]; * the destination rm, then compare it to 

t # (rmxlO); * the source rm. An error means we didn’t 

skpif[ALU=0]; 

rbaseFFlOErr: * succeed in writing rm with rbase<-0 from 

error; * ff field, t = real val, rmxO=expected val. 
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% 

Test RSTK destination function: 

FOR I IN [0..7] DO 

FOR J IN [0. .7] DO 

RBASE[I]**RBASE[J]; 
t<-RBASE[I]; 

IF T#RBASE[J] THEN error; 

ENDLOOP; ENDLOOP; 

Of course, this code is "expanded” inline rather than in a loop 

% 


* FOR I IN [0..7] DO RBASE[0] <- RBASE[I]; (EXCEPT FOR <-RBASE[0]) 
rstkTestO: 

rscr<-3C; 
rscr2MC; 

Q<-r0; 
t«-r0<-rl; 
t#(Q); 

skpUnless[ALU=0], t<-t#(r0); 
error; 

skpif[ALU=0]; 
error; 

t«-r0«-rml; 

t#(Q); 

skpUnless[ALU=0], t<-t#(r0); 
rstkTest02: 

error; 

skpif[ALU=0]; 
error; 

t«-r0<-r01; 
t#(Q); 

skpUnless[ALU=0], t«-t#(r0); 
error; 

skpif[ALU=0]; 
error; 

t<-r0**rl0; 
t#(Q); 

skpUnless[ALU=0] , t<-t^( r0); 
rstkTest04: 

error; 

skpif[ALU=0]; 
error; 

t«-rO<-rhighl; 
t#(Q); 

skp(Jnless[ALU=0], t<-t#(r0); 
error; 

skpif[ALU=0]; 
error; 

t«-rO«-rscr; 

t#(Q); 

skpUnless[ALU=0], t<-t#(rO); 
rstkTest06: 

error; 

skpif[ALU=0]; 
error; 

t<-r0«-rscr2; 

t#(Q); 

skpUnless[ALU=0], t<-t#(rO); 
error; 

skpif[ALU=0]; 
error; 
rO«-Q; 

* FOR I IN [0. .7] DO RBASE[1] <- RBASE[I]; (EXCEPT FOR <-RBASE[l]) 
rstkTestl: 

Q«-rl; 
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t«-rl<-rO; 
t#(Q); 

skp(Jnless[ALU = 0], t«-t#(rl); 
error; 

skpif[ALU=0]; 
error; 

t*-rl<-rml; 
t#(Q); 

skpUnless[ALU=0], t<-t#(rl); 
rstkTestl2: 

error; 

skpif[ALU=0]; 
error; 

t<-rl«-r01; 

t#(Q); 

skpUnless[ALU=0], t<-t#(rl); 
error; 

skpif[ALU=0]; 
error; 

t<-rl<-rl0; 
t#(Q); 

skpUnl ess [ALU=0] , t<-t#(rl); 
rstkTestl4: 

error; 

skpif[ALU=0]; 
error; 

t<-rl<-rhighl; 
t#(Q); 

skpUnl ess [ALU=0] , t<-t#(rl); 
error; 

skpif[ALU=0]; 
error; 

t<-rl«-rscr; 
t#(Q); 

skpUnless[ALU=0], t<-t#(rl); 
rstkTestl6: 

error; 

skpif[ALU=0]; 
error; 

t«-rl<-rscr2; 

t#(Q); 

skpUnless[ALU=0], t<-t#(rl); 
error; 

skpif[ALU=0]; 

error; 

rl<-Q; 

* FOR I IN [0..7] DO RBASE[2] «- RBASE[I]; (EXCEPT FOR «-RBASE[2] ) 

rstkTest2: 

Q<-rml; 

t*-rml«-rO; 

t#(Q); 

skpUnless[ALU=0], t<-t#(rml); 
error; 

skpif[ALU=0]; 
error; 

t<-rml<-rl; 
t#(Q); 

skpUnless[ALU=0], t<-t#(rml); 
rstkTest22: 

error; 

skpif[ALU=0]; 
error; 

t*-rml<-rQl; 

t HQ); 

skpUnl ess[ALU = 0], t**t#(rml); 
error; 

skpif[ALU=0]; 
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error; 
t*-rml<-rlO; 

t*(Q); 

skpUnless[ALU=0], t<-t#(rml); 
rstkTest24: 

error; 

skpif[ALU=0]; 
error; 

t<-rml«-rhighl; 
t#(Q); 

skpllnless[ALU=0], t<-t#(rml); 
error; 

skpif[ALU=0]; 
error; 

t<-rml<-rscr; 
t#(Q); 

skpUnless[ALU=0], t<-t#(rml); 
rstkTest26: 

error; 

skpif[ALU=0]; 
error; 

t«-rml<-rscr2; 

t#(Q); 

skpl)nless[ALU=0], t«-t#(rml); 
error; 

skpif[ALU=0]; 

error; 

rml<-Q; 

* FOR I IN [0. .7] DO RBASE[3] <- RBASE[I]; (EXCEPT FOR <-RBASE[3]) 

rstkTest3: 

Q«-r01; 
t<-r01<-r0; 
t#(Q); 

skpUnless[ALU=0], t<-t#(r01); 
error; 

skpif[ALU=0]; 
error; 

t<-r01«-rl; 

t#(Q); 

skpllnl ess [ALU=0] f t<-t#(r01); 
rstkTest32: 

error; 

skpif[ALU=0]; 
error; 

t<-r01<-rml; 
t#(Q); 

skpllnless[ALU=0], t«-t#(r01); 
error; 

skpif[ALU=0]; 
error; 

t<-r01«-rl0; 

t#(Q); 

skpUnless[ALU=0], t«-t#(r01); 
rstkTest34: 

error; 

skpif[ALU=0]; 
error; 

t<-r01«-rhighl; 

t#(Q); 

skpUnless[ALU=0], t<-t#(r01); 
error; 

skpif[ALU=0]; 
error; 

t<-r01«-rscr; 

t#(Q); 

skpUnless[ALU=0], t*-t#(r01); 
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rstkTest36: 

error; 

skpif[ALU=0]; 
error; 

t<-r01*-rscr2; 

t#(Q); 

skpUnl ess[ALU=0], t<-t#(r01); 
error; 

skpif[ALU=0]; 

error; 

r01<-Q; 

* FOR I IN [0 . . 7] DO RBASE[4] RBASE[I] ; (EXCEPT FOR <-RBASE[4]) 
rstkTest4: 

Q<-rl0; 
t«-rl0<-r0; 
t#(Q); 

skpUnless[ALU=0] , t<-t#(rl0); 
error; 

skpif[ALU=0]; 
error; 

t<-rl0*-rl; 

t#(Q); 

skpUnless[ALU=0], t<-t#(rl0); 
rstkTest42: 

error; 

skpif[ALU=0]; 
error; 

t«-rl0<-r01; 
t#(Q); 

skpUnless[ALU=0], t«-t#(rl0); 
error; 

skpif[ALU=0]; 
error; 

t«-rlG<-rml; 

t#(Q); 

skpUnless[ALU=0], t<-t#(rlO); 
rstkTest44: 

error; 

skpif[ALU=0]; 
error; 

t<-rlO<-rhighl; 
t#(Q); 

skpUnless[ALU=0], t<-t#(rl0); 

error; r ~ 

skpif[ALU=0]; 

error; 

t<-rlO<-rscr; 
t#(Q); 

skpUnless[ALU=0], t<-t#(rl0); 
rstkTest46: 

error; 

skpif[ALU=0]; 
error; 

t<-rl0<-rscr2; 
t#(Q); 

skpUnless[ALU = 0], t<-t#(rl0); 
error; 

skpif[ALU=0]; 

error; 

rlO«-Q; 

♦ FOR I IN [0. .7] DO RBASE[5] <- RBASE[I]; (EXCEPT FOR «-RBASE[5]) 
rstkTestS: 

Q^rhighl; 
t<-rhighl<-rO; 
t#(Q); 

skpUnless[ALU=0] , t«-t#( rhighl); 
error; 
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skpif[ALU=0]; 
error; 

t*-rhighl<-rl; 
t#(Q); 

skpUnless[ALU=0] , rhighl); 

rstkTest52: 

error; 

skpif[ALU=0]; 
error; 

t«-rhighl<-r01; 
t#(Q); 

skpUnless[ALU=0], t*-t#( rhighl); 
error; 

skpif[ALU=0]; 
error; 

t«-rhighl<-rlO; 
t#(Q); 

skpUnl ess[ALU=0] , t<-t#( rhighl); 
rstkTest54: 

error; 

skpif[ALU=0]; 
error; 

t<-rhighl*-rml; 
t#(Q); 

skpUnl ess[ALU=0], t«-t#( rhighl); 
error; 

skpif[ALU=0]; 
error; 

t*-rhighl«-rscr; 

t#(Q); 

skpUnl ess[ALU=0], rhighl); 

rstkTest56: 

error; 

skpif[ALU=0]; 
error; 

t*-rhighl«-rscr2; 
t#(Q); 

skpUnl ess[ALU=0] , t<-t#( rhighl); 
error; 

skpif[ALU=0]; 
error; 
rhighl*-Q; 

* FOR I IN [0. .7] DO RBASE[6] <- RBASE[I]; (EXCEPT FOR <-RBASE[6]) 

rstkTestS: 

Q*-rscr; 
t<-rscr«-r0; 
t#(Q); 

skpUnless[ALU=0], t«-t#(rscr); 
error; 

skpif[ALU=0]; 
error; 

t<-rscr«-rl; 
t#(Q); 

skpUnless[ALU=0], t«-t#(rscr); 
rstkTest62: 

error; 

skpif[ALU=0]; 
error; 

t<-rscr*-r01; 
t#(Q); 

skpUnless[ALU=0], t*-t#(rscr); 
error; 

skpif[ALU=0]; 
error; 


t<-rscr*-rl0; 
t#(Q); 
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skpUnless[ALU=0], 
rstkTest64: 

error; 

skpif[ALU=0]; 
error; 


t<-t#( rscr); 


t<-rscr<-rhighl; 
t#(Q); 

skpUnless[ALU=0], t<-t#(rscr); 
error; 

skpif[ALU=0]; 
error; 

t<-rscr<-rml; 
t#(Q); 

skpUnl ess[ALU=0], t<-t#(rscr); 
rstkTest66: 

error; 

skpif[ALU=0]; 
error; 

t«-rscr*-rscr2; 
t#(Q); 

skpUnless[ALU=0], t*-t#(rscr); 
error; 

skpif[ALU=0]; 

error; 

rscr<-Q; 

* FOR I IN [0..7] DO RBASE[7] <- RBASE[I]; (EXCEPT FOR <-RBASE[7]) 

rstkTest7: 

Q«-rscr2; 
t«-rscr2*-r0; 
t#(Q); 

skpUnl ess[ALU=0], t<-t#( rscr2); 
error; 

skpif[ALU=0]; 
error; 

t«-rscr2<-rl; 
t#(Q); 

skpUnless[ALU=0], rscr2); 

rstkTest72: 

error; 

skpif[ALU=G]; 
error; 

t<-rscr2<*r01; 

t#(Q); 

skpUnl ess[ALU=0] , t<-t#( rscr2); 
error; 

skpif[ALU=0]; 
error; 

t<-rscr2«-r!0; 
t#(Q); 

skpUnless[ALU=0], t<-t#( rscr2); 
rstkTest74: 

error; 

skpif[ALU=0]; 
error; 

t<-rscr2«-rhighl; 
t#(Q); 

skpUnless[ALU=0], t*-t#(rscr2); 
error; 

skpif[ALU=0]; 
error; 

t<-rscr2<-rscr; 

t#(Q); 

skpUnless[ALU=0], t<-t#( rscr2); 
rstkTest76: 

error; 

skpif[ALU=0]; 
error; 
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t*-rscr2<-rml; 

. t#(Q); 

skpUnl ess[ALU=0] , t*-t#( rscr2); 
error; 

skpif[ALU=0]; 

error; 

rscr2«-Q; 

goto[afterKernel2]; 


o 
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% 

Page Numbers: Yes First Page: 1 
Heading: 

kerne!3.mc November 13, 1978 10:43 AM% 

* INSERT[D1ALU.MC]; 

* TITLE[KERNEL3]; 
top 1evel ; 
beginKernel3: noop; 

% 

TEST CONTENTS 

SHCtestRW Read and write SHC 

Rlsh test RM shiftlmask, Ish r[i]; 0<=i<=15 
Tlsh test T shiftlmask, Ish t[i]; 0<=i<=15 
Rrsh test RM shiftlmask, rsh r[i]; 0<=i<=15 
Trsh test T shiftlmask, rsh t[i]; 0<=i<=15 

TRlcyTest test T R 1cy[i]; 0<=i<=15. (cycle 0,,1 and 177777,,177776) 

RTlcyTest test R T lcy[i]; 0<=i<=15. (cycle 0,,1 and 177777,,177776) 

rcyl6, lcyl6 test 16 bit cycles with selected bit values 

cycleTest Test 32 bit cycles by generating possible r,t, count values 

RFWFtest test RF<- and WF<- 

aluRSH test alu right shift (ie., H3 <- ALU rightshift 1) 

aluRCY test alu right cycle (ie., H3 <- ALU rightCycle 1) 

aluARSH test alu arithmetic right shift (ie., H3 «- ALU rightshift 1, sign preserved) 
aluLSH test alu left shift 

aluLCY test alu left cycle 

aluSHTEST exhaustive test of alu shifts 

% 
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* August 9, 1977 12:33 PM 

% 

TEST SHC: READ AND WRITE 

FOR I IN[0..177777B] DO 
SHOI; 

T<-SHC XOR I; 

IF T#0 THEN ERROR; 

ENDLOOP; 

Note: ShC is a 16 bit register AND the upper three bits [0..2] are not 
used by the shifter! 

% 

SHCtestRW: 

rscr«-rO; 

SHCRWL: 

SHOrscr; 
t SHC; 
t<-( rscr)#(t); 
branch[.+2,ALU=0]; 
error; 

rscr<-( rscr)+l; 
loopUntil[ALU=0,SHCRWL]; 

% TEST THE SHIFTER 

MAKE SURE THAT ALL SHIFTS WORK PROPER AMOUNT 

MAKE SURE ALL MASKS WORK 

MAKE SURE SHIFTS AND MASKS WORK TOGETHER 

These tests work by left (or right) shifting bitl5 (bit 0) 0 thru 
15 times, rscr or rscr2 holds the expected value. The result is XOR'd 
with the expected value and those bits are placed in T. If t #0 there 
has been an error. 

test order: 

R shift left 
T shift left 
R shift right 
T shift right 

R T cycle left 
T R cycle left 
R T cycle right 
T R cycle right 

Note: The cycle tests are duplicated with the bits inverted (eg., 
bitl5 {bitO} is zero and all other bits are one. 

% 


Rlsh: 

t<-rl; 
rscr«-t; 
t**B15; 

rscr «- lsh[rscr,0]; 
t«-t#( rscr); 
skpif[ALU=0]; 
error; 

t«-rl; 

rscr<-t; 

t<-B14; 

rscr <- 1 sh[rscr, 1]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 


Rlsh2: 

t«-rl; 
rscr<-t; 
t«-B13; 

rscr +■ i sh[rscr,2]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 

t^-rl; 
rscr<-t; 


f. 

i 

* 

f 

u 

u 

r> 
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t<-B12; 

rscr «- lsh[rscr,3]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 


Rlsh4: 

t«-rl; 
rscr<-t; 
t«-Bll; 

rscr <- lsh[rscr,4]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 

t<-rl; 
rscr«-t; 
t«-B10; 

rscr «- lsh[rscr,5]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 


Rlsh6: 

t«-rl; 
rscr<-t; 
t*-B9; 

rscr <- 1sh[rscr,6]; 
t«-t#( rscr); 
skpif[ALU=0]; 
error; 

t«-rl; 
rscr<-t; 
t<-B8; 

rscr «- lsh[rscr,7]; 
t*-t#( rscr); 
skpif[ALU=0]; 
error; 


Rlsh8: 

t<-rl; 
rscr*-t; 
t<-B7; 

rscr <- lsh[rscr,10]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 

t«-rl; 
rscr«-t; 
t«-B6; 

rscr ♦* 1 sh[rscr, 11]; 
t«-t#( rscr); 
skpif[ALU=0]; 
error; 


RlshlO: 

t«-rl; 
rscr<-t; 
t«-B5; 

rscr «- 1 shfrscr, 12] ; 
rscr); 

skpif[ALU=0]; 
error; 

t<-rl; 
rscr<-t; 
t«-B4; 

rscr <- 1sh[rscr,13]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 


Rlshl2: 


t<-rl; 
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rscr<-t; 
t<-B3; 

rscr <- 1 sh[ rscr,14] ; 
t*-t#( rscr); 
skpif[ALU=0]; 
error; 

t«-rl; 
rscr«-t; 
t<-B2; 

rscr «- 1 sh[rscr, 15]; 
t*-t#( rscr); 
skpif[ALU=0]; 
error; 


Rlshl4: 

t«-rl; 
rscr<-t; 
t«*Bl; 

rscr <- 1 sh[ rscr, 16] ; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 

t«-rl; 
rscr«-t; 
t<-RHIGHl; 

rscr «- 1 sh[rscr, 17]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 
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* October 20, 1978 10:32 AM 

Tlsh: 

t<-rscr<-B15; 
noop; 

t<-l sh[t, 0] ; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 

t<-rl; 
rscr«-B14; 
t<-1sh[t,l]; 
t«-t#( rscr); 
skpif[ALU=0]; 
error; 

Tlsh2: 

t«-rl; 
rscr<-B13; 
t<-1sh[t,2] ; 
rscr); 

skpif[ALU=0]; 
error; 

t<-rl; 
rscr«-B12; 
t<-lsh[t ,3]; 
t<-t#( rscr) ; 
skpif[ALU=0]; 
error; 

T1sh4: 

t«-rl; 
rscr<-Bll; 
t«-l sh[t, 4] ; 
rscr); 

skpif[ALU=0]; 
error; 

t<-rl; 
rscr*-B10; 
t<-l sh[t ,5]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 

Tlsh6: 

t«-rl; 
rscr*-B9; 
t«-l sh[t, 6] ; 
t«-t#( rscr); 
skpif[ALU=0]; 
error; 

t<-rl; 
rscr<-B8; 
t<-l sh[t, 7] ; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 

Tlsh8: 

t<-rl; 
rscr«-B7; 
t«-lsh[t,10] ; 
t<-t#( rscr) ; 
skpif[ALU=0]; 
error; 

t<-rl; 
rscr<-B6; 
t<-lsh[t,ll]; 
t<-t#( rscr); 
skpif[ALU=0]; 


l 

ii 


o 
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error; 



TlshlO: 


t*-rl; 
rscr«-B5; 
t«-l sh[t, 12] ; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 


t«-rl; 
rscr<-B4; 
t<-l sh[t, 13] ; 
t+-t#( rscr); 
skpif[ALU=0]; 
error; 


Tlshl2: 

t<-rl; 
rscr<-B3; 
t«-l sh[t, 14] ; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 

t<-rl; 
rscr«-B2; 
t<-1sh[t,15]; 
t<"t#( rscr); 
skpif[ALU=0]; 
error; 



Tlshl4: 

t«-rl; 
rscr«-Bl; 
t«-lsh[t, 16]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 

t<-rl; 

rscr<-RHIGHl; 
t«-l sh[t, 17] ; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 


o 



kerne!3.me 


25-Sep-80 14:22:08 


Page 7 


* October 20, 1978 10:12 AM 

% 

KEEP 100000 IN Q FOR THESE TESTS !!! 

% 

Rrsh: 

Q<-RHIGH1; 

GOTO[Rrshl]; * Temporary EXPEDIENT 

rscr<-Q; 

t«-RHIGHl; 

rscr «- rsh[rscr,0]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 

Rrshl: 

rscr<-Q; 

t<-Bl; 

rscr <- rsh[rscr,l]; 
t«-t#( rscr); 
skpif[ALU=0]; 
error; 

Rrsh2: 

rscr<-Q; 
t«-B2; 

rscr <- rsh[rscr,2]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 

rscr«*Q; 
t*-B3; 

rscr «- rsh[rscr,3]; 
t*-t#( rscr); 
skpif[ALU=0]; 
error; 

Rrsh4: 

rscr«-Q; 
t«-B4; 

rscr <- rsh[rscr,4]; 
rscr); 

skpif[ALU=0]; 
error; 

rscr«-Q; 

t<-B5; 

rscr <- rsh[rscr,5]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 


Rrsh6: 

rscr<-Q; 

t<-B6; 

rscr «- rsh[rscr,6]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 

rscr<-Q; 

t<-B7; 

rscr «- rsh[rscr,7]; 
rscr); 

skpif[ALU=0]; 
error; 

Rrsh8: 

rscr<-Q; 
t<-B8; 

rscr +• rsh[ rscr, 10]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 
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RrshlO: 


Rrshl2: 


o 

Rrshl4: 



rscr«-Q; 

t<-B9; 

rscr <- rsh[ rscr, 11] ; 
t*-t#( rscr); 
skpif[ALU=0]; 
error; 


rscr«-Q; 
t«-B10; 

rscr «- rsh[rscr,12]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 

rscr<-Q; 
t<-Bll; 

rscr <- rsh[rscr,13]; 
t«-t#( rscr); 
skpif[ALU=0]; 
error; 


rscr<-Q; 

t<-B12; 

rscr «- rsh[rscr,14]; 
t«-t#( rscr); 
skpif[ALU=0]; 
error; 

rscr*-Q; 

t<-B13; 

rscr <- rsh[rscr, 15] ; 
t«-t#( rscr); 
skpif[ALU=0]; 
error; 


rscr<-Q; 
t<-B14; 

rscr «- rsh[rscr, 16] ; 
t<-t#(rscr); 
skpif[ALU=0]; 
error; 

rscr<-Q; 

t<-B15; 

rscr «- rsh[rscr, 17] ; 
rscr) ; 

skpif[ALU=0]; 
error; 


p 

i 




I 

tf 

I 


il 
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* October 20, 1978 
Trsh: 


10:13 AM 


G0T0[Trshiftl]; * Temporary EXPEDIENT 
t«-rscr<-RHIGHl; 

NOOP; 

T<-rsh[t, 0]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 


T rshiftl: 

t<-rhighl; 
rscr«-Bl; 
t*-rsh[t, 1]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 


Trsh2: 

t«-rhighl; 
rscr«-B2; 
t<-rsh[t, 2]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 

t<-rhighl; 
rscr«-B3; 
t<-rsh[t ,3]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 



Trsh4: 

t<-rhighl; 
rscr<-B4; 
t«-rsh[t, 4]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 

t«-rhighl; 
rscr*-B5; 
t<-rsh[t ,5]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 


Trsh6: 

t<-rhighl; 
rscr«-B6; 
t«-rsh[t ,6]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 

t<-rhighl; 
rscr«-B7; 
t<-rsh[t, 7]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 


Trsh8: 



t<-rhighl; 
rscr<-B8; 
t«-rsh[t, 10]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 


t<-rhighl; 
rscr«-B9; 
t«-rsh[t, 11]; 
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TrshlO: 


Trshl2: 


T rshl4: 

o 


t«-t#( rscr); 
skpif[ALU=0]; 
error; 


t^rhighl; 
rscr<-B10; 
t«-rsh[t, 12]; 
t**t#( rscr); 
skpif[ALU=0]; 
error; 

t<-rhighl; 
rscr«-Bll; 
t<-rsh[t, 13]; 
rscr); 

skpif[ALU=0]; 
error; 


t«-rhighl; 
rscr«-B12; 
t<-rsh[t, 14]; 
t*-t#( rscr); 
skpif[ALU=0]; 
error; 

t<-rhighl; 
rscr<-B13; 
t<-rsh[t, 15] ; 
t«-t#( rscr); 
skpif[ALU=0]; 
error; 


t<-rhighl; 
rscr<-B14; 
t*-rsh[t, 16]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 

t«-rhighl; 
rscr«-B15; 
t<-rsh[t, 17]; 
t<-t#( rscr); 
skpif[ALU=0]; 
error; 


o 
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* October 20, 1978 10:14 AM 

% 

These tests work by cycling by 0, 1, ...17B. The predicted result 
is kept in RSCR2 and the actual result XOR's w/ predicted result is 
kept in T. Note that each test is done twice: once w/ one "1” bit and all 
the rest ”0" bits, and once w/ one "0" bit and all the rest "1" bits. 


FOR THESE TESTS WE WILL REDEFINE R01 TO BE RM2 (-2)! 

% 

TRlcyTest: 

RM[rm2,IP[R01]]; 
rm2 <- CM2; 

t<-r0; 

rscr2«-B15; * RSCR2 <- PREDICTED RESULT 

t«-l cy[t, rl, 0]; 

t«-t#( rscr2) ; 

skpif[alu=0]; 

error; 

t<-rml; 

rscr2«-NB15; * RSCR2 <- PREDICTED RESULT 

t<-l cy[t, rm2,0] ; 

t«-t#(rscr2); 

skpif[alu=0]; 

error; 


t<-r0; 

rscr2<-B14; * RSCR2 <- PREDICTED RESULT 

t<-l cy[t, rl, 1]; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 

t<-rml; 

rscr2<-NB14; * RSCR2 «- PREDICTED RESULT 

t«-lcy[t,rm2,1]; 

t<-t#( rscr2) ; 

skpif[alu=0]; 

error; 


TR1cy2: 

t<-r0; 

rscr2<-B13; * RSCR2 «- PREDICTED RESULT 

t«-lcy[t,rl,2]; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 

t<-rml; 

rscr2<-NB13; * RSCR2 <- PREDICTED RESULT 

t<-l cy[t, rm2,2] ; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 


t<-r0; 

rscr2<-B12; * RSCR2 <- PREDICTED RESULT 

t<-lcy[t, rl,3] ; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 

t<-rml; 

rscr2«-NB12; * RSCR2 <- PREDICTED RESULT 

t<-l cy[t, rm2,3] ; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 


TR1cy4: 

t<-r0; 

rscr2<-Bll; * RSCR2 <- PREDICTED RESULT 

t<-l cy[t, rl, 4]; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 

t«-rml; 

rscr2<-NBll; * RSCR2 <- PREDICTED RESULT 



!i 

j, 

i 


j: 

I 

i 


il 
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t«-l cy[t, rm2,4]; 
t<-t#( rscr2); 
skpif[alu=0]; 
error; 

t«-r0; 

rscr2<-B10; 
t«-lcy[t,rl,5]; 

rscr2); 
skpif[alu=0]; 
error; 
t<-rml; 
rscr2<-NB10; 
t<-lcy[t, rm2,5]; 
t«-t#( rscr2); 
skpif[alu=0]; 
error; 

TR1cy6: 

t«-r0; 
rscr2<-B9; 
t«-lcy[t, rl,6]; 
t<-t#( rscr2); 
skpif[alu = 0]; 
error; 
t<-rml; 
rscr2<-NB9; 
t«-l cy[t, rm2,6]; 
t<-t#( rscr2); 
skpif[alu=0]; 
error; 

t«-r0; 
rscr2<-B8; 
t<-lcy[t,rl,7]; 
t<-t#( rscr2); 
skpif[alu=0]; 
error; 
t<-rml; 
rscr2<-NB8; 
t<-lcy[t, rm2,7] ; 
t<-t#( rscr2); 
skpif[alu=0]; 
error; 


RSCR2 <- PREDICTED RESULT 


RSCR2 <- PREDICTED RESULT 


RSCR2 <- PREDICTED RESULT 


RSCR2 <- PREDICTED RESULT 


RSCR2 PREDICTED RESULT 


RSCR2 <- PREDICTED RESULT 


TR1cy8: 

t<-r0; 

rscr2*-B7; * RSCR2 <- PREDICTED RESULT 

t 4_ lcy[t, rl,10]; 

t«-t#( rscr2); 

skpif[alu = 0]; 

error; 

t«-rml; 

rscr2«-NB7; * RSCR2 <- PREDICTED RESULT 

t«-l cy[t, rm2,10]; 

t<-t#(rscr2); 

skpif[alu=0]; 

error; 


t*-r0; 

rscr2<-B6; * RSCR2 PREDICTED RESULT 

t<-lcy[t, rl, 11]; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 

t«-rml; 

rscr2<-NB6; * RSCR2 <- PREDICTED RESULT 

t<-lcy[t, rm2,11] ; 

t<-t#(rscr2); 

skpif[alu=0]; 

error; 


TRlcylO: 

t«-rO; 

rscr2*-B5; * RSCR2 <- PREDICTED RESULT 

t*-lcy[t, rl, 12]; 
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t«-t#( rscr2); 
skpif[alu=0]; 
error; 
t<-rml; 

rscr2<-NB5; * RSCR2 «- PREDICTED RESULT 

t«-l cy[t, rm2,12] ; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 

t<-rO; 

rscr2<-B4; * RSCR2 <- PREDICTED RESULT 

t«-lcy[t,rl,13]; 

t«-t#( rscr2) ; 

skpif[alu = 0]; 

error; 

t«-rml; 

rscr2<-NB4; * RSCR2 <- PREDICTED RESULT 

t«-l cy[t, rm2,13] ; 

t«-t#( rscr2); 

skpif[alu=0]; 

error; 

TR1cy12: 

t<-rO; 

rscr2«-B3; * RSCR2 <- PREDICTED RESULT 

t«-l cy[t, rl, 14] ; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 

t«-rml; 

rscr2<-NB3; * RSCR2 <- PREDICTED RESULT 

t<-l cy[t, rm2,14] ; 

t<-t#(rscr2); 

skpif[alu=0]; 

error; 

t<-rO; 

rscr2«-B2; * RSCR2 <- PREDICTED RESULT 

t**l cy[t, rl, 15] ; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 

t<-rml; 

rscr2«-NB2; * RSCR2 «- PREDICTED RESULT 

t«-l cy[t, rm2,15]; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 

TR1cyl4: 

t<-rO; 

rscr2<-Bl; * RSCR2 «- PREDICTED RESULT 

t<-l cy[t, rl, 16] ; 

t*-t#( rscr2); 

skpif[alu=0]; 

error; 

t«-rml; 

rscr2<-NBl; * RSCR2 «- PREDICTED RESULT 

t<-l cy[t, rm2,16] ; 

t«-t#( rscr2); 

skpif[alu=0]; 

error; 

t<-rO; 

rscr2«-B0; * RSCR2 <- PREDICTED RESULT 

t<-lcy[t, rl, 17]; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 

t«-rml; 

rscr2<-NB0; * RSCR2 «- PREDICTED RESULT 

t<-l cy[t, rm2,17] ; 

t«-t#( rscr2); 

skpif[alu=0]; 

error; 
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* October 20, 1978 10:06 AM 

RTlcyTest: *RSCR2 HOLDS THE PREDICTED RESULT, T HOLDS ACTUAL RESULT 

t<-rl; * rscr2, T «- [0,1] LCY[0] 

rscr2<-B15; * rscr2 <- PREDICTED RESULT 

t<-l cy[r0, t, 0] ; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 

t*-rm2; 

rscr2«-NB15; * rscr2 «■ PREDICTED RESULT 

t<-lcy[rml,t,0]; 

t<-t#( rscr2); 

skpif[alu = 0]; 

error; 

t«-rl; 

rscr2<-B14; * rscr2 «- PREDICTED RESULT 

t*-l cy[ rO, t, 1]; 

rscr2); 
skpif[alu=0]; 
error; 
t<-rm2; 

rscr2+-NB14; * rscr2 «■ PREDICTED RESULT 

t«-l cy[ rml, t, 1] ; 

t*-t#( rscr2) ; 

skpif[alu=0]; 

error; 

RT1cy2: 

t«-rl; 

rscr2<-B13; * rscr2 <- PREDICTED RESULT 

t<-lcy[r0 , t ,2] ; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 

t<-rm2; 

rscr2<-NB13; * rscr2 «- PREDICTED RESULT 

t<-lcy[rml, t ,2] ; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 

t<-rl; 

rscr2<-B12; * rscr2 <- PREDICTED RESULT 

t*-lcy[r0,t,3]; 

t<*t#( rscr2); 

skpif[alu=0]; 

error; 

t«-rm2; 

rscr2«-NB12; * rscr2 <- PREDICTED RESULT 

t<-lcy[rml,t,3]; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 

RT1cy4: 

t<-rl; 

rscr2<-Bll; * rscr2 4- PREDICTED RESULT 

t<-lcy[rO, t,4]; 

t«-t#( rscr2) ; 

skpif[alu = 0]; 

error; 

t«-rm2; 

rscr2<-NBll; * rscr2 «- PREDICTED RESULT 

t*-lcy[rml, t, 4]; 

t<-t#( rscr2); 

skpif[alu = 0]; 

error; 

t<-rl; 

rscr2«-B10; * rscr2 «- PREDICTED RESULT 

t«-lcy[r0,t,5]; ~ ~ 

t*-t#( rscr2); 
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skpif[alu = 0]; 
error; 
t<-rm2; 

rscr2«-NB10; * rscr2 <- PREDICTED RESULT 

t<-l cy[ rml, t, 5] ; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 


RT1cy6: . i 

t«-rl; 
rscr2<-B9; 
t<-l cy[r0, t, 6] ; 
t<-t#( rscr2); 
skpif[alu = 0]; 
error; 
t<-rm2; 
rscr2<-NB9; 
tHcy[rml,t,6]; 
t«-t#( rscr2); 
skpif[alu = 0]; 
error; 

t«-rl; 
rscr2<-B8; 
t<-l cy[rO ,t, 7] ; 
t*-t#( rscr2); 
skpif[alu = 0]; 
error; 
t«-rm2; 
rscr2«-MB8; 
t«-l cy[rml, t, 7] ; 
t<-t#( rscr2); 
skpif[alu=0]; 
error; 


* rscr2 <- PREDICTED RESULT 


* rscr2 <- PREDICTED RESULT 


* rscr2 PREDICTED RESULT 


* rscr2 <- PREDICTED RESULT 


RT1cy8: 

t«-rl; 

rscr2<-B7; * rscr2 *- PREDICTED RESULT 

t«-lcy[r0 ,t, 10]; 

t*-t#( rscr2); 

skpif[alu = 0]; 

error; 

t<-rm2; 

rscr2<-NB7; * rscr2 <- PREDICTED RESULT 

t<-l cy[rml, t, 10] ; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 


t<-rl; 

rscr2<-B6; * rscr2 PREDICTED RESULT 

t«-lcy[r0, t,U]; 

t+-t#( rscr2); 

skpif[alu=0]; 

error; 

t<-rm2; 

rscr2«-NB6; * rscr2 <- PREDICTED RESULT 

t«-lcy[rml,t,ll]; 

t«-t#( rscr2); 

skpif[alu=0]; 

error; 


RTlcylO: 

t«-rl; 

rscr2<-B5; * rscr2 <- PREDICTED RESULT 

t<-l cy[rO , t, 12]; 
t«-t#( rscr2); 
skpif[alu=0]; 
error; 
t<-rm2; 
rscr2<-NB5; 
t«-l cy[rml, t, 12]; 
t<-t#(rscr2); 
skpif[alu = 0]; 
error; 


o 


rscr2 <- PREDICTED RESULT 
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t«-rl; 

rscr2<-B4; * rscr2 «- PREDICTED RESULT 

tHcy[rO,t,13]; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 

t«-rm2; 

rscr2<-NB4; * rscr2 <- PREDICTED RESULT 

t«-1cy[rml,t,13]; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 

RT1cyl2: 

t<-rl; 

rscr2<-B3; * rscr2 <- PREDICTED RESULT 

t«-1 cy[r0, t, 14] ; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 

t«*rm2; 

RSCR2<-NB3; * RSCR2 <- PREDICTED RESULT 

t<-l cy[rml, t, 14] ; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 

t*-rl; 

RSCR2<-B2; * RSCR2 <- PREDICTED RESULT 

t«-l cy[r0 , t, 15] ; 

t*-t#( rscr2) ; 

skpif[alu=0]; 

error; 

t<-rm2; 

RSCR2<-NB2; * RSCR2 PREDICTED RESULT 

t<-l cy[rml, t, 15] ; 

t<-t#( rscr2); 

skpif[alu=0]; 

error; 

RT1cyl4: 

t<-rl; 

RSCR2<-B1; * RSCR2 <- PREDICTED RESULT 

tHcy[rO,t, 16]; 

t<-t#( rscr2) ; 

skpif[alu = 0]; 

error; 

t<-rm2; 

RSCR2<-NB1; * RSCR2 PREDICTED RESULT 

t<-1cy[rml, t, 16]; 

t«-t#( rscr2); 

skpif[a1u=0]; 

error; 

t<-rl; 

RSCR2<-B0; * RSCR2 «■ PREDICTED RESULT 

t<-1cy[r0,t, 17]; 

t«-t#( rscr2); 

skpif[alu=0]; 

error; 

t«-rm2; 

RSCR2<-NB0; * RSCR2 <- PREDICTED RESULT 

t«-1cy[rml, t, 17] ; 

t<-t#( rscr2); 

skpif[a1u=0]; 

error; 

RTlcyDone: 

rOl <- NOT (rlO); * REDEFINE rOl !!!!!!! 
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* November 3, 1978 6:43 PM 

% 

rcyl6, lcyl6 Test the 16 bit cycles with selected 
bit values. This is not an exhaustive test. 

% 

rcyTest: * test 16 bit right cycle 

t «- rcy[r01, rOl, 1]; 
t # (rlO); 
skpif[ALU=0]; 

rcyl6Errl: * rlO rcy 1 should be rOl 

error; 

t *- rOl; 

t <- rcy[t, t, 1]; * try it again from t 

t # (rlO); 
skpif[ALU=0]; 

rcyl6Err2: * rlO rcy 1 should be rOl. (done from 

error; * t this time) 


t <- rcyfrl, rl, 1]; 
t # (rhighl); 
skpif[ALU=0]; 

rcyl6Err3: * 1 rcy 1 should be 100000B 

error; 

t <- rl; 

t «- rcy[t, t, 1]; 
t # (rhighl); 
skpif[ALU=0]; 

rcyl6Err4: * 1 rcy 1 should be 100000B. (done from t 

error; * time). 

t <- rcy[rl0, rlO, 1]; 
t # (rOl); 
skpif[ALU=0]; 

rcyl6Err5: * rlO rcy 1 should be rOl 

error; 


t <- rlO; 

t «- rcy[t, t, 1]; * t <- rlO rcy 1 

t # (rOl); 
skpif[ALU=0]; 

rcyl6Err6: * rlO rcy 1 should be ,r01 

error; * done from t this time. 


t rcy[r01, rOl, 2]; 
t # ( rOl); 
skpif[ALU=0]; 

rcyl6Err7: * rOl rcy 2 should be rOl 

error; 

t <- rcy[r01, rOl, 3]; 
t # (rlO); 
skpif[ALU=0]; 

rcyl6Err8: * rOl rcy 3 should be rlO 

error; 

t rcy[r01, rOl, 10]; 
t # (rOl); 
skpif[ALU=0]; 

rcyl6Err9: * rOl rcy 10 should be rOl 

error; 


IcyTest: 

t <- lcy[r01, rOl, 1]; 
t # (rlO); 
skpif[ALU=0]; 

lcy!6Errl: * rOl Icy 1 should be rlO 

error; 


t lcy[rhighl, rhighl, 1]; 
t # (rl); 
skpif[ALU=0]; 

lcyl6Err2: # 100000B Icyd 1 should be 1 

error; 
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t <- lcy[rl, rl, 1]; 
t#(2c); 
skpif[ALU=0]; 

lcyl6Err3: * 1 Icy 1 should be 2 

error; 


t «- lcy[rl0, rlO, 1]; * t «■ rlO Icy 1 

t # (rOl); 
skpif[ALU = 0]; 

lcyl6Err4: * rlO Icy 1 should be rOl 

error; 


t <- lcy[rlO, rlO, 2]; 
t # (rlO); 
skpif[ALU=0]; 

1cyl6Err5: * rlO Icy 2 should be rlO 

error; 


t lcy[rlO, rlO, 3]; 
t # (rOl); 
skpif[ALU = 0]; 

lcyl6Err6: * rlO Icy 3 should be rOl 

error; 

t <- lcy[rlO, rlO, 4]; 
t # (rlO); 
skpif[ALU = 0]; 

lcyl6Err7: * rlO Icy 4 should be rlO 

error; 

t +• lcy[rlO, rlO, 10]; 
t # (rlO); 
skpif[ALU=0]; 

lcyl6Err8: * rlO Icy 10 should be rlO 

error; 
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* November 13, 1973 10:40 AM 

% 

cycleTest Test the cycle machinery by generating all possible values for the r, t, and co 

**unt fields in She (6 bits). The 16-bit data patterns must test all possible starting positions (ie., 

**bit 0, bit 1, ...). Furthermore, set the ’’other word" to all Is when single one-bits are being tested 

**, and set it to all zeros when single zero bits are being tested. Since we test cycling, we don't set 
** any of the mask fields in ShC. 

SHC: TYPE = MACHINE DEPENDENT REC0RD[ 

Shifterlgnores: IN[0..3], -- bits 0, 1 

a: IN [0..1], -- bit 2, shA select. 1 ==> "select T" 

b: IN [0..1], -- bit 3, shB select. 1 ==> "select T" 

Count: IN [0..17B], -- bits 4:7, shift count 

RMask: IN [0..17B], -- bits 8:11 

LMask: IN [0..17B], -- bits 12:15 

]; 

shcVals: IN [0..77B]; -- iterate thru all possible counts, sha, shb 

FOR pats IN NPats DO 
FOR shcVal In SHCVals DO 
She.a <- shcVals AND 40B; 

She.b shcVals AND 20B; 

She.count «- shcVals AND 17B; 
r «- getPatternfpats]; 

t <- IF numberOfZeroBitsGrlfr] THEN -1 ELSE 0; 
result «- doShift[]; 

expected <- simul ateCycle[t, r.shcVal ] ; 

IF result # expected THEN SIGNAL BadShift[result, expected, shcVals]; 

ENDLOOP; -- end of shcVals loop 

ENDLOOP; -- end of pats loop 

simulateCycle: PROCEDURE^, r: WORD, shcVal: SHCVals] RETURNS [expected: WORD] = 

BEGIN 

tCycle: CARDINAL = 60B; -- 2 highest bits in shcVal are 1 
rCycle: CARDINAL =0; --2 hightest bits in shcVal are 0 

trCycle: CARDINAL = 40B; — highest bit in shcVal is 1 

rtCycle: CARDINAL = 20BB; -- 2nd highest bit in ShcVal is 1 

shAB <- shcVal AND 60B; 

SELECT shAB INTO 

tCycle=> BEGIN 

left <-right<-t; END, 

rCycle=> BEGIN 

left «- right <- r; END, 

trCycle=> BEGIN 

left «- t, right <- r; END, 

rtCycle=> BEGIN 

left <- r; 

right <- t; END, 

END; 

shiftCount «- shcVal AND 17B; 
saveMask <- SELECT shiftCount INTO 
1=>100000; 

2=>140000B; 

3=>160000B; 

4=>170000B; 

5=>174000B; 

6=>176000B; 

7=>177000B; 

8=>177400B; 

9=>177600B; 

10=>177700B; 

11=>177740B; 

12 = >177760B ; 

13=>177770B; 

14=>177774B; 

15 = >177776B; 

0=>177777B, 

END; 

savedValue <- left AND saveMask; 
right <- LeftShift[right, shiftCount]; 
savedValue <- RightShif t[right, 16-shiftCount] ; 
result +■ savedValue OR left; 

END; 

numberOfZeroBitsGrl: PROCEDURE[ x: WORD] RETURNS[result: BOOLEAN] = 

BEGIN 

count <- 0; 
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FOR i IN [0..15] DO 
IF (x AND 1) =0 THEN 
x <- RightShift[x,1]; 
ENDLOOP;• 

result <- IF count >1 
END; 


count «- count + 1; 
THEN TRUE ELSE FALSE; 


% 
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% 

November 17, 1978 2:39 PM 

TEST RF AND WF 


ShC: TYPE = MACHINE DEPENDENT RECORD [ 

IGNORE: TYPE = [0..7B] 

SHIFTCOUNT: TYPE = [0..37B] 

RMASK: TYPE = [0..17B] 

LMASK: TYPE = [0..17B] 

] 

MesaDescriptor: TYPE = MACHINE DEPENDENT RECORD[ -- this is the value stored w/ rf+, wf+ 
IGNORE: TYPE = [0..377B] -- IGNORE FIRST BYTE 

POS: TYPE = [0..17B] — RIGHT SHIFT OF POS WILL RIGHT JUSTIFY THE FIELD 

SIZE: TYPE = [0..17B] -- LENGTH OF FIELD IN BITS 

] 

THIS TEST PROCEEDS BY WRITING ShC W/ ALL POSSIBLE RF AND WF VALUES. THEN 
ShC IS READ AND CHECKED TO MAKE SURE THAT IT WAS LOADED PROPERLY. 


FOR I IN [0..377B] DO 
RF + I; 

RSCR+SHC; 

SIZE «- I AND 17B; 

POS «- BITSHIFT[I,-4] AND 17B; 

IF RSCR.LMASK # (16-SIZE-l) THEN ERROR; — BAD LMASK 
IF RSCR.RMASK # 0 THEN ERROR; -- BAD RMASK 

IF RSCR.SHIFTCOUNT # (16+pos+size+l) THEN ERROR; — BAD SHIFT COUNT 

(Actually this computation isn't quite right. 

* let count = 16+pos+size+l. realCount «- (count and 17b). 

* IF (realCount and 17b) #0 then realCount + realCount OR 20B. This funny computation 

* accommodates hardware limitations associated w/ carry across boards. 

-- now test wf 
WF+I; 

RSCR+SHC; 

IF RSCR.RMASK # (16-P0S-SIZE-1) THEN ERROR; — BAD RMASK 

IF RSCR.LMASK NE POS THEN ERROR; -- BAD LMASK 

IF RSCR.SHIFTCOUNT # (16-pos-size-l) THEN ERROR; — BAD SHIFT COUNT 


ENDLOOP; 

% 

RM[r4BitMsk,IP[R01]]; 

r4BitMsk + 17C; * RENAME R01 AS r4BitMsk !!! 

RM[1astShC, IP[RSCR]]; * RENAME RSCR AS lastShC 

RFWFtest* 

Q+RO; * Q WILL HOLD THE INDEX VARIABLE 

t+377C; 

CNT+t; * LOOP LIMIT 

RFTESTL: 

t+Q; 

RF<-t; 

1 astShC<-SHC; 

* CHECK LMASK 

T<- (r4BitMsk)AND (Q); * COMPUTE LMASK (= 16-SIZE-l) FROM INDEX VAR 

rscr2+t; * rscr2 + size 

t<-17C; * 16-1 

rscr2 <- t - (rscr2); * rscr2 <- expected Lmask = 16-size-l 
t «- (lastShC) and (17c); * t + Lmask from ShC 

t # ( rscr2); 
branch[.+2, ALU=0]; 

RFLMASK: * t = Lmask from ShC, rscr2 = expected Lmask 

error; 586 LMASK FIELD WRONG IN ShC 

* CHECK RMASK 

t<-(lastShC) and (360c); * t = isolated Rmask field of ShC 
skpif[ALU=0]; 

RFRMASK: 

error; * RMASK FIELD NOT 0 
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* CHECK SHIFT COUNT = 16+pos+size+1 (Actually this computation isn't quite right. 

* let count = 16+pos+size+1. realCount + (count and 17b). 

* IF (realCount and 17b) #0 then realCount <- realCount OR 20B. This funny computation 

* accommodates hardware limitations associated w/ carry across boards. 

rscr2<- (Q); 

t<-r4BitMsk; 

rscr2 <- rsh[ rscr2,4] ; 

rscr2 <- t AND (rscr2); * rscr2 = POS 

t «- 21c; *16+1 

t + t + (rscr2); * 16 + 1 + pos 

rscr2 + q; 

rscr2 + (rscr2) and (17c); * isolate size 

rscr2 + t + (rscr2); * rscr2 + 16 + 1 + pos + size 
rscr2 <- (rscr2) and (17c); * isolate to 17 bits 

skpif[alu=0]; * see if bit 0 of count is one 

rscr2 <- (rscr2) or (20c); * set bitO of count if count[l:4]#0 

rscr2 + (rscr2) and (17c); * isolate result to 5 bits 

t<- rsh[LastShC, 10]; 

RFSHIFTC: 

t#(rscr2); * t=value from LastShC, rscr2 = computed value 

skpif[ALU=0]; 

error; * BAD SHIFT COUNT 
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* June 28, 1978 5:06 PM 

* NOW TEST WF 

WFTEST: 

t«-Q; 

WF<-t; 

lastShOSHC; 

* CHECK LMASK: COMPUTE pos 

rscr2 <- q; 
noop; 

t <- rsh[rscr2,4]; 

rscr2 t and (r4BitMsk); * isolate pos bits in rscr2 

t«-l astShC; 

t «- t AMD (r4BitMsk); * T<- LMASK 

WFLMASK: 

t#(rscr2); * t=LastShC’s Lmask, rscr2 = computed value 

branch[.+2, ALU=0]; 

error; * SHC'S LMASK # pos 

* CHECK THAT RMASK = 16 - pos - size -1 

rscr2 «- q; 

t «- (r4BitMsk) and (q); * isolate size in t 
rscr2 <- rsh[rscr2,4] ; * rscr2 «- pos 

rscr2 «- (rscr2) + t; * rscr2 «- pos + size 
t «- 17c; * t <- 16 -1 

rscr2 «* t - (rscr2); * rscr2 «- 16 - pos - size - 1 
rscr2 <- (rscr2) and (17c); * isolate to 17 bits 

t <- rsh[lastShC,4] ; * t = ShC's shift count 

t <- t and (r4BitMsk); 


WFRMASK: 

t#(rscr2); * t = ShC’s shift count 

skpif[ALU=0]; * rscr2 = 16-pos-size-1 
error; * RMASK NE (16-POS-SIZE-l) 

* CHECK SHIFT COUNT=16-pos-size-l 

t «- rsh[lastShC, 10]; * put ShC's shift count into t 

t + t and (37c); 

t#(rscr2); * t = ShC’s shift count 

skpif[ALU=0]; * rscr2 = 16-pos-size-1, as computed above 

WFSHIFTC: * for the Rmask check 

error; * SHC’S SHIFTCOUNT # POS 


rscr2<-(Rl) + (Q); 

loopUntil [CNT=0&-1, RFTESTL] ,Q<-( rscr2) ; 

RFXITL: 


R01 4- NOT (RIO); * RESET R01 !!!!!! 
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* October 20, 1978 10:23 AM 

% 

TEST ALU SHIFT OPERATIONS 


TEST RESULT <- ALU RSH 1 (RESULT[0] + 0) 
aluRSH: 

rOl <- not(rlO); * RESET rOl !!!! INCASE WE SKIPPED RFXITL 
t<-( PD<-( rl)) rsh 1; 
t<-t#( rO); 
skpif[ALU=0] ; 

error; * 1 RSH[1] SHOULD BE 0 

t<-( PD<-( rml) ) rsh 1; 
rscr«-77777C; 
t«-t#( rscr); 
skpif[ALU=0]; 

error; * -1 RSH[1] SHOULD BE 77777B 

t«-( PD<-rlO) rsh 1; 
t«-t#( rOl); 
skpif[ALU=0]; 

error; * (ALTERNATING 10) rsh 1 SHOULD BE (ALT. 01) 

* TEST RESULT <- ALU RCY[1] (RESULT[0]<-ALU[15]) 
aluRCY: 

t+(PD«-rml) rcy 1; 
t<-t#( rml); 
skpif[ALU=0]; 

error; * -1 RCY[1] SHOULD BE -1 

t<-( PD<-rO) rcy 1; 
t«-t#( rO); 
skpif[ALU=0]; 

error; * 0 RCY[1] SHOULD BE 0 

t<-( PD<-rlQ) rcy 1; 
t«-t#( rOl); 
skpif[ALU=0]; 

error; * (ALTERNATING 10) RCY[1] SHOULD BE (ALT 01) 

t<-(PD*-r01)rcy 1; 
t<-t#( rlO); 
skpif[ALU=0]; 

error; * (ALT 01) RCY[1] SHOULD BE (ALT 10) 

* REST RESULT <- ALU Arsh 1 (RESULT[0] <- ALU[0]) (SIGN PRESERVING) 
aluARSH: 

t<-( PD«-rml)Arsh 1; 
t<-t#( rml); 
skpif[ALU=0]; 

error; * -1 ARSH SHOULD BE -1 

t<-( PD<-rO)Arsh 1; 
t«-t#( rO); 
skpif[ALU=0]; 

error; * 0 ARSH SHOULD BE 0 

t<-(PD<-rhighl)Arsh 1; 
rscr<-140000C; 
t<-t#( rscr); 
skpif[ALU=0]; 

error; * 100000 ARSH SHOULD BE 140000 

t<-rhighl; 
rscr<-t+( rOl); 
t<-( PD<-rlO)Arsh 1; 
t«-t#(rscr); 
skpif[ALU=0]; 

error; * (ALT. 10) ARSH SHOULD BE(ALT. 01+100000) 

* TEST RESULT + ALU Ish 1 
aluLSH: 

t<-(PD<-rhighl)l sh 1; 
t<-t#( rO); 
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skpif[ALU=0]; 

error; * 100000 LSH SHOULD BE 0 

aluLSHb: 

t«-(PD<-rl)lsh 1; 
rscr<-( rl) + ( rl); 
t<-t#( rscr); 
skpif[ALU=0]; 

error; * 1 LSH SHOULD BE 2 

aluLSHc: 

t<-(PD<-r01)l sh 1; 
t<-t#(rlO); 
skpif[ALU=0]; 

error; * (ALT. 01) LSH SHOULD BE (ALT. 10) 

aluLSHd: 

t<-( PD<-rml) 1 sh 1; 
rscr*-CM2; 
t<-t#( rscr); 
skpif[ALU=0]; 

error; * -1 LSH SHOULD BE -2 

* TEST RESULT ALU LCY1 
aluLCY: 

t<-(PD<-rml)l cy 1; 
t<-t#( rml); 
skpif[ALU=0]; 

error; * -1 LCY SHOULD BE -1 

aluLCYb: 

t<-( PD<-rlO)l cy 1; 
t<-t#( rOl); 
skpif[ALU=0]; 

error; * (ALT. 10) LCY SHOULD BE (ALT. 01) 

aluLCYc: 

t<-( PD<-r01)l cy 1; 
t<-t#(rl0); 
skpif[ALU=0]; 

error; * (ALT. 01) LCY SHOULD BE (ALT. 10) 

aluLCYd: 

t*-(PD<-r0)lcy 1; 
t<-t#(rO); 
skpif[ALU=0]; 

error; * 0 LCY SHOULD BE 0 

aluLCYe: 

t<-( PD<-rl )1 cy 1; 
rscr<-( rl)+( rl); 
t«-t#( rscr); 
skpif[ALU=0]; 

error; * 1 LCY SHOULD BE 2 
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October 20, 1978 10:24 AM 

% 

EXHAUSTIVE TEST OF ALU SHIFT FUNCTIONS 

FOR Q IN[0..177777B] DO 
rscr2<-Q rsh 1; 
t<-predictedRSH[I]; 

IF t«-(T XOR rscr2) THEN ERROR; 

rscr2<-Q ) rcy 1; 
t<-predictedRCY[I]; 

IF t<-(T XOR rscr2) THEN ERROR; 

rscr2<-Q Arsh 1; 
t*-predictedARSH[I]; 

IF t<-(T XOR rscr2) THEN ERROR; 

rscr2<-Q lsh 1; 
t«-predictedLSH[I]; 

IF t<-(T XOR rscr2) THEN ERROR; 

rscr2*-Q rsh 1; 
t*-predictedRSH[I]; 

IF t«-(T XOR rscr2) THEN ERROR; 

rscr2*-Q Icy 1; 
t«-predictedLCY[I]; 

IF t<-(T XOR rscr2) THEN ERROR; 

ENDLOOP; 

% 

aluSHTEST: 

Q<-rO; * USE Q AS LOOP VARIABLE 

aluSHL: * TOP OF LOOP 

* RSH TEST 

rscr<-Q; 

t«-( PD<-rscr) rsh 1; 
rscr*-rsh[rscr, 1]; 
rscr); 

branch[.+2,ALU=0]; 

RSHER: 

error; * PREDICTED RESULT DIFFERENT FROM REAL ONE 

* RCY TEST 

rscr^Q; * Q IS LOOP VARIABLE 
t«-( PD*-rscr) rcy 1; 

rscr2«-t; * REAL RESULT IN rscr2 

t<-rsh[rscr, 1]; 

skpif[R EVEN], (PD<-rscr); * ADD HIGH BIT IF NECESSARY 

t*-t+( rhighl); * PREDICTED RESULT IN T 

rscr2); 

branch[.+2,ALU=0]; 

RCYER: 

error; * T <- (PREDICTED T) XOR rscr2 

* ARSH TEST 

rscr<-Q; * Q IS LOOP VARIABLE 
t<-( PD<-rscr) Arsh 1; 

rscr2 <- T; * rscr2 = ACTUAL RESULT 

t*-rsh[rscr, 1]; 

PD*-Q; * ADD SIGN BIT IF REQUIRED 

skpUnless[ALU<0]; * ADD SIGN BIT IF REQUIRED 

t<-t+( rhighl); 

rscr2) ; 
skpif[ALU=0]; 

ARSHER: 

error; * t<-(PREDICTED T) XOR rscr2 

* LSH TEST 

rscr<-Q; * Q IS LOOP VARIABLE 

rscr2<-( PD<-Q)1 sh 1; * rscr2 = ACTUAL RESULT 

t*-lsh[rscr, 1]; 
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t«*t#( rscr2); 
skpif[ALU=0]; 

LSHER: 

error; * t«- (PREDICTED T) XOR rscr2 
* LCY TEST 

terser <- Q; * Q IS LOOP VARIABLE 

rscr2 <- (PD<-t) 1 cy 1; * rscr2 = ACTUAL RESULT 

t<-l sh[ rscr, 1] ; * t<- PREDICTED RESULT 

rscr<-( rscr); 

skpUnless[ALU<0]; 

t<-t+(rl); • t«- T+ 1 FOR CYCLED BIT 0 

rscr2); 
skpif[ALU=0]; 

LCYER: 

error; * T <- (PREDICTED T) XOR rscr2 
t^(rl)+(Q); 

db!Branch[ .+1, al uSHL, ALU=0] , Q*-t; 
goto[afterkerne!3]; 
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% 

Page Numbers: Yes First Page: 1 
Heading: 

kernel4.me July 14, 1979 4:53 PM % 

% 

July 14, 1979 4:53 PM 

Fix bug in computation of correct value for stkp after performing stack+l<-. 

May 8, 1979 11:53 AM 

Add bypass checking to stack test. 

January 25, 1979 1:12 PM 

Add call to checkTaskNum at beginKerne!4 to skip the stack tests when we’re not executing in ta 

**sk 0. 

% 

top 1evel; 


% 

CONTENTS 

TEST DESCRIPTION 


stkTest test all stack operations 
carry20Test tests CARRY20 function 

xorCarryTest test XORCARRY function (CIN to bitO, provided by ALUFM) 

useSavedCarry test function (use aluCarry from preeceding instr as CIN 


multiplyTest test multiply step fen (affects Q, 
divide test divide step fen (affects Q, result) 
edivide test divide step fen (affects Q, result) 
slowBR tests 8-way slow dispatch 

% 


result, its a slowbranch, too) 


beginKernel4: 

call [checkTaskNum], t <- rO; 
skpif[ALU=0]; 

branch[stkXitTopL]; * don’t try task 0 tests. 
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* May 8, 1979 11:53 AM 

% 

TEST STKP PUSH AND POP OPERATIONS 
— I AND STKP SHOULD BE INCREMENTING TOGETHER. 

-- notation: stack&+l[stkp] + val : place val into stack[stkp], then increment stkp by 1 
-- stack+l[stkp] «- val : increment stkp by one, then place val into stack[stkp] 

-- The stragegy for this test is to perform all the various stack manipulations (+1, +2, +3, 

-- -1, -2, -3, -4, &+1, &+2, &+3, &-1, &-2, &-3, &-4) for every value of stkp that won't 
-- cause a hardware error (underflow). The test knows what to expect in RM by setting 
-- each rm location to its address (stack[i] «- i). 

FOR top2StkpBits IN [0..3] DO 

FOR index IN [0..stkpMax] DO -- check simple loading of stkp and stk 
i <- index + LeftShift[top2StkpBits, 6]; 
stkp «- i; 

IF POINTERS[].stkError THEN ERROR; -- underflow or overflow 

IF POINTERS[].stkp # i THEN ERROR; — stkp not the value we loaded 

stk[stkp] + 0; 

IF stk[stkp] # 0 THEN ERROR; -- loaded zero, got back something different. 
stk[stkp] <- -1; 

IF stk[stkp] # -1 THEN ERROR; -- loaded -1, got back something different. 
stk[stkp] «- A1 ternatingOl; 

IF stk[stkp] # A1ternatingOl THEN ERROR; -- loaded A1ternatingO1, got back something dif 

**ferent. 

stk[stkp] <- A1 ternatinglO; 

IF stk[stkp] # A1ternatinglO THEN ERROR; -- loaded A1ternatinglO, got back something dif 

**ferent. 

stk[stkp] «- i; -- init current stack to stk[i] <- i 
IF stk[stkp] # i THEN ERROR; 

ENDLOOP: 

FOR index IN [0..STKPMAX] DO -- test other operations within that stack 
i «- index + LeftShift[top2StkpBits, 6]; 
stkp «- i; 

IF i # STKPMAX THEN -- check + ,- 1 operations 

BEGIN -- begin w/ operations that use current stkp for loading rm 
stack&+l[stkp] «- -1; 

IF POINTERS[].stack # i+1 THEN ERROR; -- auto increment of stkp failed 

IF stack[stkp] # i+1 THEN ERROR; -- got wrong data after increment 

stack&-l[stkp] «- i+i; -- rewrite current data, decrement stkp 

IF P0INTERS[].stack # i THEN ERROR; -- auto decrement of stkp failed 

IF stack[stkp] # -1 THEN ERROR; -- got wrong data ater decrement 
stkp 4 - i+1; -- set stkp to check data 

IF stack[stkp] # i+1 THEN ERROR; -- wrong data during auto decrement 

stkp <- i; -- reset stkp 

stack[stkp] 0; 

IF stack[stkp] # 0 THEN ERROR; -- bypass error 
stack[stkp]<- 1; 

IF stack[stkp] = 0 THEN ERROR; -- bypass error 
stack[stkp] + i; -- reset data at "current” stkp 

-- now test operations that modify stkp before loading rm 
stack+l[stkp] <- -1; -- increment stkp, then load rm 

IF POINTERS[].stack # i+1 THEN ERROR; -- stkp auto increment failed 
IF stack[stkp] # -1 THEN ERROR; -- didn't get data we wrote 
stack[stkp] i+1; -- fix clobbered location 

stack-l[stkp] + -1; -- decrement stkp, then load rm 

IF POINTERS[].stack # i THEN ERROR; -- stkp auto decrement failed 

IF stack[stkp] # -1 THEN ERROR; -- didn’t get data we wrote 
stack[stkp] 4 - i; -- fix clobbered location 

END; 

IF i+1 < stkpMAX THEN -- check +,- 2 operations 

BEGIN -- begin w/ operations that use current stkp for loading rm 
stack&+2[stkp] + -1; 

IF P0INTERS[].stack # i+2 THEN ERROR; -- auto increment of stkp failed 

IF stack[stkp] # i+2 THEN ERROR; -- got wrong data after increment 

stack&-2[stkp] + i+2; -- rewrite current data, decrement stkp 

IF POINTERS[].stack // i THEN ERROR; -- auto decrement of stkp failed 

IF stack[stkp] tt -1 THEN ERROR; -- got wrong data 
stack[stkp] + i; -- reset data at current stkp 

stkp 4- i+2; -- set stkp to check data 

IF stack[stkp] # i+2 THEN ERROR; -- wrong data during auto decrement 
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ENDLOOP; 

ENDLOOP; 

% 


stkp <- i; -- reset stkp 

-- now test operations that modify stkp before loading rm 
stack+2[stkp] <- -1; -- increment stkp, then load rm 

IF P0INTERS[].stack # i+2 THEN ERROR; -- stkp auto increment failed 
IF stack[stkp] # -1 THEN ERROR; -- didn’t get data we wrote 
stack[stkp] <- i+2; -- fix clobbered location 

stack- 2 [stkp] 4 - -l; -- decrement stkp, then load rm 

IF POINTERS!]],stack # i THEN ERROR; -- stkp auto decrement failed 

IF stack[stkp] # -1 THEN ERROR; -- didn’t get data we wrote 
stack[stkp] 4- i; -- fix clobbered location 

END; 

IF i+2 < stkpMAX THEN -- check + ,- 3 operations 

BEGIN -- begin w/ operations that use current stkp for loading rm 
stack&+3[stkp] + -1; 

IF P0INTERS[].stack # i+3 THEN ERROR; -- auto increment of stkp failed 

IF stack[stkp] # i+3 THEN ERROR; -- stkp auto increment failed 

stack&-2[stkp] + i+2; -- rewrite current data, decrement stkp 

IF P0INTERS[].stack # i THEN ERROR; — auto decrement of stkp failed 

IF stack[stkp] # -1 THEN ERROR; -- got wrong data 
stack[stkp] + i; -- reset data at current stkp 

stkp 4 - i+3; -- set stkp to check data 

IF stack[stkp] # i+3 THEN ERROR; -- wrong data during auto decrement 

stkp 4 - i ; -- reset stkp 

-- now test operations that modify stkp before loading rm 
stack+3[stkp] + -1; -- increment stkp, then load rm 

IF POINTERS!]], stack # i+3 THEN ERROR; -- stkp auto increment failed 

IF stack[stkp] # -1 THEN ERROR; -- stkp auto increment failed 

stackfstkp] 4 - i+3; -- fix clobbered location 

stack- 3 [stkp] 4 - -i; -- decrement stkp, then load rm 

IF POINTERS!]].stack # i THEN ERROR; -- stkp auto decrement failed 

IF stack[stkp] # -1 THEN ERROR; -- didn’t get data we wrote 
stack[stkp] 4 - i; -- fix clobbered location 

END; 

IF i>3 THEN -- check -4 operations 

BEGIN -- begin w/ operations that use current stkp for loading rm 
stack&-4[stkp] 4 - -i ; -- decrement stkp, then load rm 

IF POINTERS]]]. stack # i-4 THEN ERROR; -- stkp auto decrement failed 

IF stack[stkp] # i-4 THEN ERROR; -- didn't get data we wrote 

stkp 4 - i ; 

IF stack[stkp] # -1 THEN ERROR; -- didn't get data we wrote 
stack[stkp] 4 - i- 4 ; -- fix clobbered location 

-- now test operations that modify stkp before loading rm 
stack-4[stkp] <- -1; -- decrement stkp, then load rm 

IF POINTERS!]], stack # i-4 THEN ERROR; -- stkp auto decrement failed 
IF stack[stkp] # -1 THEN ERROR; -- didn't get data we wrote 
stack[stkp] 4 - i -4 -- fix clobbered location 

stkp 4 - i; 

IF stack[stkp] # i THEN ERROR; 

ENDLOOP; 

-- end of stkp loop 

-- end of top2StkpBit$ loop 
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* 

% 


% 


July 14, 1979 4:53 PM 

stkTest Test the various stack operations 


mc[stkPMaxXC, 77]; 
mc[pointers.stkOvf, b8]; 
mc[pointers.stkUnd, b9]; 
mc[pointers.stkErr, b8, b9]; 

stkTest: * initialize the top2bits loop 

cal 1[iTopStkBits]; 

stkTopL: * top of "top 2 bits of stkp" loop 

cal 1[nextTopStkBits]; 
skpif[ALU#0]; 
branch[stkXitTopL]; 
noop; 


* This code writes the current stack with the address (stack[stkP] <- stkP). 

* It also checks that stkp<-, <-stack work properly. 

cal 1[iStkPAddr]; * initialize stack index [1..maxStkXC] 

stkIL: 

cal 1 [nextStkPAddr]; * top of stk init loop, here we check stkp<- and <-stack. 

skpif[ALU#0]; 

branch[stkiXit]; 

stkp <- t; * load stkp 

cal 1[chkStkErr]; 

skpif[ALU=0]; 

stkiErrO: * got stack underflow or overflow 

error; 


call[getRealStkAddr], rscr «- t; 

t # (rscr); * compare real stkp with value we loaded 
skpif[ALU=0]; 

stkiErrl: * t = tskp, rscr = value we loaded 

error; 


* This is a limited test of the bits in the stack memory: write zero, -1, alternating 10, 01 
t «- stack «- t-t; 
t «- t #(Q<-stack) ; 
skpif[ALU=0]; 

stkiErr2: * wrote zero, got back something else 

error; * Q = value from stack 


t «- rml; 
stack «- t; 
t <r t #(Q<-stack) ; 
skpif[ALU=0]; 

stkiErr3: * wrote -1 got back something else. 

error; * t = bad bits Q = value from stack 

t <- rOl; 
stack «- t; 
t <- t #(Q*-stack) ; 
skpif[ALU=0]; 

stkiErr4: * wrote r«Ql got back something else. 

error; * t = bad bits. Q = value from stack 

t <- rlO; 
stack <- t; 
t <- t #(Q<-stack) ; 
skpif[ALU=0]; 

stkiErrS: * wrote rlO got back something else. 

error; * t = bad bits. Q = value from stack 

t «* rscr; * t +• current index 

stack<-t; * stack[i] <-i, then check it 

t # (Q<-stack); 
skpif[ALU=0]; 

stkiErr6: * wrote stkp from rscr. Q = value from stack 

error; * read it into t. they aren't the same 
branch[stkiL]; 

stkiXit: 
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» July 14, 1979 4:53 PM 

* We have successfully written the stack using non incrementing and non decrementing 

* operations. Wow we test stack&+l<-, stack&-l<-, stack+l<-, stack-1*- 

call[iStkPAddr]; * init the main loop for the main test 

stkTestL: * top of main loop 

call[nextStkPAddr]; * get next stack index or exit loop 

skpif[alu#0]; 

branch[stkTestXitL]; 

stkp <- t; * stackP «- i 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErrlO: * got stack underflow or overflow 

error; 

rscr <- t and (77c); * isolate the index (exclude top 2 bits) 

(rscr)-(stkPMaxXC); * skip this test if it would cause overflow 

branch[afterStkTestl, ALU=0]; 

t # (Q<-stack); * see if stack[stkp] = stkp 

skpif[ALU=0]; * if not, an earlier execution of this loop clobbered 

stkpErrl: * the stack entry at location in t, or this is first time 

error; * thru, and the initialization didn't work properly. 

* Q=value from stack 

* stack&+l stack&+l stack&+l stack&+l stack&+l stack&+l stack&+l stack&+l 

stack&+l <- cml; * stack[stackP] «- -1, then stackP «- stackP+1 
call[chkStkErr]; 
skpif[ALU=0]; 

stk&+lErrO: * got stack underflow or overflow 

error; 

call[getRealStkAddr], rscr«-t+l; * compare stackPAddr from Pointers w/ expected val 
t #(rscr); 
skpif[ALU=0]; 

stkPlAddrErr: * auto increment of StackP failed, rscr = expected value, 

error; * t = value from Pointers 

t <- t # (Q«-stack); 
skpif[ALU=0]; 

stkPIValErr: * value at stackp is bad. Q = value from stack 

error; * t = expected val, rscr = stack's val from Pointers 
t «- rscr; * restore t 

* stack&-l stack&-l stack&-l stack&-l stack&-l stack8f-l stack8f-l stack&-l stack8f-l 

stack&-l t; * stack[”i + 1"] i+1, stackp «- i. 

call[chkStkErr]; 
skpif[ALU=0]; 

stkpErrl2: * got stack underflow or overflow 

error; 

cal 1 [getRealStkAddr] , rscr «- t-1; 

t # (rscr); * compare expected stkP (rscr) with 
skpif[ALU=0]; * actual stkp (t) 

stkMIAddrErr: » auto decrement failed 

error; 

t «- cml; 

t t # (Q<-stack); 

skpif[ALU=0]; * see if original stack&+l <- cml worked 

stkPIValErr2: * stack&+i seems to have clobbered the 

error; * (i+i)th value, t = bad bits. Q = value from stack 

t *- rscr; * restore t 

(stack)*- t; * reset stk[stkp] to contain stkp 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErrl3: * got stack underflow or overflow 

error; 
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rscr «- t <- t+1; 

stkp + t; * check the data modified during "stack&-l" instruction 

t <- t # (Q<-stack); * compare tos with expected valu 

skpif[ALU=0]; 

stkMIValErr: *. Q = value from stack 

error; * t = bad bits, rscr = expected value 

t <- rscr «- (rscr)-l; * t, rscr + "i" 
stkp <- t; * stkp is at i + 1 now. Fix it. 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErrl4: * got stack underflow or overflow 

error; 

Q «- stack; * save stack value 

stack + t-t; 

PD«-(stack); 
skpif[ALU=0]; 

stkByPassErrO: * didn't notice that we just zeroed the stack 

error; 
t <- cml; 
stack <r cml; 

PD «- (stack) # t; 
skpif[ALU=0]; 

stkByPassErrl: * didn't notice that we just put all ones 

error; * in the stack. 

stack «- Q; * restore stack 

* stack+l stack+1 stack+1 stack+1 stack+1 stack+1 stack+l stack+1 stack+1 stack+1 

rscr <- (rscr)+l; * compute expected stkp value 

t <- cml; 

stack+1 + t; * stkp + i+1, stack[stkp] + -1 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErrlB: * got stack underflow or overflow 

error; 

call[getRealStkAddr]; 

(rscr) # t; 
skpif[ALU=0]; 

stkPlAddrErr2: * expected Rscr, got stackp in t, they're different 

error; 

t + cml; 

t + t # (Q+stack); * check that we loaded -1 into incremented stack location 

skpif[ALU=0]; * Q = value from stack 

stkPIValErr3: * t = bad bits 

error; 

t rscr; * restore t 

* stack-1 stack-1 stack-1 stack-1 stack-1 stack-1 stack-1 stack-1 stack-1 stack-1 

stack + t; * reset stack which was clobbered by "stack+l<-cml” 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErrl6: * got stack underflow or overflow 

error; 

rscr + t-1; * compute expected value of rscr 

t + cml; 

stack-1 + t; * (stack-1) + "-1" 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErrl7: * got stack underflow or overflow 

error; 

cal 1[getRealStkAddr]; 

(rscr) # t; * see if real stkp (t) matches expected stkp (rscr) 
skpif[ALU=0]; 
stkMlAddrErr2: 
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error; 
t cml; 

t t # (Q<-stack); * compare tos with -1 

skpif[ALU=0]; 

stkMIValErr2: * Q = value from stack 

error; * t = bad bits, expected -1 

t <- rscr; * restore t 

(stack) «■ t; * restore addr as value in stack: stack[stkp]«-stkp 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErrl8: * got stack underflow or overflow 

error; 

noop; * for placement 
afterStkTestl: 


o 


o 
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* November 30, 1978 6:07 PM 

%remember, don't execute if i=l, if i+2=77% 
cal 1[getStkPAddr]; 

rscr <- t and (77c); * isolate the index (exclude top 2 bits) 

rscr <- (rscr) + l; 

(rscr)-(stkPMaxXC); * skip this test if it would cause overflow 

branch[afterStkTest2, ALU>=0]; 

t # (Q<-stack); * see if stack[stkp] = stkp 

skpif[ALU=0]; * if not, an earlier execution of this loop clobbered 

stkpErr21: * the stack entry at location in t, or this is first time 

error; * thru, and the initialization didn't work properly. 

* Q=value from stack 

* stack &+2 stack &+2 stack &+2 stack &+2 stack &+2 stack &+2 stack &+2 stack &+2 

stack&+2 <- cml; * stack[stackP] «- -1, then stackP 4 - stackP+2 
cal 1[chkStkErr]; 
skpif[ALU=0]; 

stk&+2ErrO: * got stack underflow or overflow 

error; 

call [getRealStkAddr], rscr<-t+( 2c); * compare stackPAddr from Pointers w/ expected val 

t #(rscr); 
skpif[ALU=0]; 

stkP2AddrErr: * auto increment of StackP failed, rscr = expected value, 

error; * t = value from Pointers 

t <- t # (Q<-stack); 
skpif[ALU=0]; 

stkP2Va!Err: * value at stackp is bad. Q = value from stack 

error; * t = expected val, rscr = stack's val from Pointers 
t «- rscr; * restore t 

* stack &-2 stack &-2 stack &-2 stack &-2 stack &-2 stack &-2 stack &-2 stack &-2 stack &-2 

stack &-2 «- t; * stack["i+ 2 "] 4 - i+ 2 , stackp «- i. 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErr22: * got stack underflow or overflow 

error; 

call [getRealStkAddr] , rscr <- t-(2c); 
t # (rscr); * compare expected stkP (rscr) with 

skpif[ALU=0]; * actual stkp (t) 

stkM2AddrErr: * auto decrement failed 

error; 

t cml; 

t 4 - t # (Q<-stack); 

skpif[ALU=0]; * see if original stack&+2 4 - cml worked 

stkP2ValErr2: * stack&+2 seems to have clobbered the 

error; * (i+2)th value, t = bad bits. Q = value from stack 

t 4 - rscr; * restore t 

(stack)4- t; * reset stk[stkp] to contain stkp 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErr23: * got stack underflow or overflow 

error; 

rscr 4 - t 4 - t+(2C); 

stkp 4 - t; * check the data modified during "stack&-2" instruction 

t 4 - t # (Q<-stack); * compare tos with expected valu 

skpif[ALU=0]; 

stkM2ValErr: *. Q = value from stack 

error; * t = bad bits, rscr = expected value 

* stack+2 stack+2 stack+2 stack+2 stack+2 stack+2 stack+2 stack+2 stack+2 stack+2 

t 4 - rscr (rscr)-( 2 c); * t, rscr "i" 

stkp 4 - t; * stkp is at i+2c now. Fix it. 
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cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErr24: * got stack underflow or overflow 

error; 

rscr <- t+(2c); * compute expected stkp value 

t «- cml; 

stack+2 <- t; * stkp i+2, stack[stkp] <- -1 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErr25: * got stack underflow or overflow 

error; 

cal 1[getRealStkAddr]; 

(rscr) # t; 
skpif[ALU=0]; 

stkP2AddrErr2: * expected stackP t, got stackp in Rscr, they’re different 

error; 

t <- cml; 

t <- t # (Q*-stack); * check that we loaded -1 into incremented stack location 

skpif[ALU=0]; * Q = value from stack 

stkP2ValErr3: * t = bad bits 

error; 

t <- rscr; * restore t 

* stack-2 stack-2 stack-2 stack-2 stack-2 stack-2 stack-2 stack-2 stack-2 stack-2 

stack «- t; * reset stack which was clobbered by "stack+2<-cml" 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErr26: * got stack underflow or overflow 

error; 

rscr «- t-(2c); * compute expected value of rscr 

t <- cml; 

stack-2 «- t; * (stack-2) <- "-1" 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErr27: * got stack underflow or overflow 

error; 

cal 1[getRealStkAddr]; 

(rscr) # t; * see if real stkp (t) matches expected stkp (rscr) 
skpif[ALU=0]; 
stkM2AddrErr2: 

error; 

t «- cml; 

t t # (Q<-stack); * compare tos with -1 

skpif[ALU=0]; 

stkM2ValErr2: * Q = value from stack 

error; * t = bad bits, expected -1 

t «- rscr; * restore t 

(stack) <- t; * restore addr as value in stack: stack[stkp]<-stkp 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErr228: * got stack underflow or overflow 

error; 

noop; * for placement 


afterStkTest2: 
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* December 1, 1978 3:19 PM 

%remember, don't execute if 
noop; * placement 
cal 1[getStkPAddr]; 
rscr t and (77c); 
rscr «- ( rscr) + ( 2c); 

(rscr)-(stkPMaxXC); 
branch[afterStkTest3 


i=1, if i+3>=77% 

for afterStkfest2 branch 

* isolate the index (exclude top 2 bits) 

* skip this test if it would cause overflow 
, ALU>=0]; 


t # (Q<-stack); * see if stack[stkp] = stkp 

skpif[ALU=0]; * if not, an earlier execution of this loop clobbered 

stkpErr31: * the stack entry at location in t, or this is first time 

error; * thru, and the initialization didn't work properly. 

* Q=value from stack 


* stack&+3 stack&+3 stack&+3 stack&+3 stack&+3 stack&+3 stack&+3 stack&+3 


stack&+3 4- cml; * stack[stackP] <- -1, then stackP *- stackP+3 
cal 1[chkStkErr]; 
skpif[ALU=0]; 

stk&+3ErrO: * got stack underflow or overflow 

error; 

cal 1 [getRealStkAddr] , rscr*-t+(3c); * compare stackPAddr from Pointers w/ expected val 

t #(rscr); 
skpif[ALU=0]; 

stkP3AddrErr: * auto increment of StackP failed, rscr = expected value, 

error; * t = value from Pointers 

t + t # (Q<-stack); 
skpif[ALU=0]; 

stkP3ValErr: * value at stackp is bad. Q = value from stack 

error; * t = expected val, rscr = stack's val from Pointers 
t rscr; * restore t 

* stack&-3 stack&-3 stack&-3 stack&-3 stack&-3 stack&-3 stack&-3 stack&-3 stack&-3 

stack&-3 t; * stack["i+3"] <- i+3, stackp <- i. 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErr32: * got stack underflow or overflow 

error; 


call[getRea!StkAddr], rscr <- t-(3c); 
t # (rscr); * compare expected stkP (rscr) with 

skpif[ALU=0]; * actual stkp (t) 

stkM3AddrErr: * auto decrement failed 

error; 

t cml; 

t 4 - t # (Q*-stack); 

skpif [ALU=0]; * see if original stack&+3 *- cml worked 

stkP3ValErr2: * stack&+3 seems to have clobbered the 

error; * (i+3)th value, t = bad bits. Q = value from stack 

t rscr; * restore t 

(stack)*- t; * reset stk[stkp] to contain stkp 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErr33: * got stack underflow or overflow 

error; 


rscr 4 - t 4- t+(3C); 

stkp *- t; * check the data modified during ''stack&-3'' instruction 

t 4 - t # (Q*-stack); * compare tos with expected valu 

skpif[ALU=0]; 

stkM3ValErr: *. Q = value from stack 

error; * t = bad bits, rscr = expected value 

* stack+3 stack+3 stack+3 stack+3 stack+3 stack+3 stack+3 stack+3 stack+3 stack+3 


t *- rscr <- (rscr)-(3c); * t, rscr *• "i" 
stkp 4 - t; * stkp is at i+3c now. Fix it. 
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cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErr34: * got stack underflow or overflow 

error; 

rscr «- t+(3c); * compute expected stkp value 

t <- cml; 

stack+3 <- t; * stkp *- i+3, stack[stkp] <- -1 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErr35: * got stack underflow or overflow 

error; 

cal 1[getRealStkAddr]; 

(rscr) # t; 
skpif[ALU=0]; 

stkP3AddrErr2: * expected stackP t, got stackp in Rscr, they’re different 

error; 

t «- cml; 

t <- t # (Q<-stack); * check that we loaded -1 into incremented stack location 

skpif[ALU=0]; * Q = value from stack 

stkP3ValErr3: * t = bad bits 

error; 

t «- rscr; * restore t 

* stack-3 stack-3 stack-3 stack-3 stack-3 stack-3 stack-3 stack-3 stack-3 stack-3 

stack *• t; * reset stack which was clobbered by "stack+3<-cml" 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErr36: * got stack underflow or overflow 

error; 

rscr <- t-(3c); * compute expected value of rscr 

t <- cml; 

stack-3 <• t; * (stack-3) «- "~1" 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErr37: * got stack underflow or overflow 

error; 

cal 1[getRealStkAddr]; 

(rscr) # t; * see if real stkp (t) matches expected stkp (rscr) 
skpif[ALU=0]; 
stkM3AddrErr2: 

error; 

t <- cml; 

t «- t # (Q<-stack); * compare tos with -1 

skpif[ALU=0]; 

stkM3ValErr2: * Q = value from stack 

error; * t = bad bits, expected -1 

t <- rscr; * restore t 

(stack) <- t; * restore addr as value in stack: stack[stkp]<-stkp 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErr38: * got stack underflow or overflow 

error; 

noop; * for placement 


afterStkTest3: 
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* December 1, 1978 4:57 PM 

%remember, don’t execute if i = l, if i+4>=77% 

noop; * placement for the afterStkTest3 check 
cal 1[getStkPAddr]; 

rscr «- t and (77c); * isolate the index (exclude top 2 bits) 

rscr <- ( rscr) + (3c); 

(rscr)-(stkPMaxXC); * skip this test if it would cause overflow 

branch[afterStkTest4, ALU>=0]; 

t # (Q*-stack); * see if stackfstkp] = stkp 

skpif[ALU=0]; * if not, an earlier execution of this loop clobbered 

stkpErr41: * the stack entry at location in t, or this is first time 

error; * thru, and the initialization didn’t work properly. 

* Q=value from stack 

* Simulate stack&+4 -- hardware can perform stack&+3 as maximum increment 

stack&+3 <- cml; * stack[stackP] <- -1, then stackP «- stackP+4 
stkp+1; * simulate +4 
cal 1[chkStkErr]; 
skpif[ALU=0]; 

stk&+4ErrO: * got stack underflow or overflow 

error; 

call[getRealStkAddr], rscr<-t+(4c); * compare stackPAddr from Pointers w/ expected val 

t #(rscr); 
skpif[ALU=0]; 

stkP4AddrErr: * auto increment of StackP failed, rscr = expected value, 

error; * t = value from Pointers 

t <- t # (Q«-stack); 
skpif[ALU=0]; 

stkP4ValErr: * value at stackp is bad. Q = value from stack 

error; * t = expected val, rscr = stack’s val from Pointers 
t <- rscr; * restore t 

* stack&-4 stack&-4 stack&-4 stack&-4 stack&-4 stack&-4 stack&-4 stack&-4 stack&-4 

stack&-4 + t; * stack["i+4"] «■ i+4, stackp + i. 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErr42: * got stack underflow or overflow 

error; 

call [getRealStkAddr] , rscr «- t-(4c); 
t if (rscr); * compare expected stkP (rscr) with 
skpif[ALU=0]; * actual stkp (t) 

stkM4AddrErr: * auto decrement failed 

error; 

t <- cml; 

t <- t H (Q*-stack); 

skpif[ALU=0]; * see if original stack&+4 <- cml worked 

stkP4ValErr2: * stack&+4 seems to have clobbered the 

error; * (i+4)th value, t = bad bits. Q = value from stack 

t «- rscr; * restore t 

(stack)*- t; * reset stk[stkp] to contain stkp 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErr43: * got stack underflow or overflow 

error; 

rscr <- t <- t+(4C); 

stkp t; * check the data modified during "stack&-4" instruction 

t «- t # (Q*-stack); * compare tos with expected valu 

skpif[ALU=0]; 

stkM4Va!Err: *. Q = value from stack 

error; * t = bad bits, rscr = expected value 

* stack+4 stack+4 stack+4 stack+4 stack+4 stack+4 stack+4 stack+4 stack+4 stack+4 

t «- rscr *- (rscr)-(4c); * t, rscr <- ”i” 
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stkp «- t; * stkp is at i+4c now. Fix it. 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErr44: * got stack underflow or overflow 

error; 

rscr t+(4c); * compute expected stkp value 

t cml; 

stkp+1; * simulate stack+4 

stack+3 t; * stkp «- i+4, stack[stkp] <- -1 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErr45: * got stack underflow or overflow 

error; 

call[getRealStkAddr]; 

(rscr) tt t; 
skpif[ALU=0]; 

stkP4AddrErr2: * expected stackP t, got stackp in Rscr, they’re different 

error; 

t «- cml; 

t 4 - t ft (Q«-stack); * check that we loaded -1 into incremented stack location 

skpif[ALU=0]; * Q = value from stack 

stkP4ValErr3: * t = bad bits 

error; 

t «- rscr; * restore t 

* stack-4 stack-4 stack-4 stack-4 stack-4 stack-4 stack-4 stack-4 stack-4 stack-4 

stack 4- t; * reset stack which was clobbered by "stack+4«-cml" 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErr46: * got stack underflow or overflow 

error; 

rscr <- t-(4c); * compute expected value of rscr 

t 4- cml; 

stack-4 4~ t; * (stack-4) «- ”-l” 

cal 1[chkStkErr]; 
skpif[ALU=0]; 

stkpErr47: * got stack underflow or overflow 

error; 

cal 1[getRealStkAddr]; 

(rscr) tt t; * see if real stkp (t) matches expected stkp (rscr) 

skpif[ALU=0]; 
stkM4AddrErr2: 

error; 

t 4- cml; 

t 4 - t tt (Q<-stack); * compare tos with -1 

skpif[ALU=0]; 

stkM4ValErr2: * Q = value from stack 

error; * t = bad bits, expected -1 

t 4- rscr; * restore t 

(stack) <- t; * restore addr as value in stack: stack[stkp]<-stkp 

cal 1[chkStkErr]; 
skp if [ALli=0]; 

stkpErr48: * got stack underflow or overflow 

error; 

noop; * for placement 

afterStkTest4: 

branch[stkTestL]; 
stkTestXitL: 

branch[stkTopL]; 
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* November 27, 1978 10:31 AM. 


iStkPAddr: subroutine; 

return, stackPAddr «- t-t; 


first valid index is one. 


nextStkPAddr: subroutine; * stack indeces are 6 bits long. 

* Return (stackPaddr OR stackPtopBits) in T. It's an 8 bit address. 

* ALU#0 =>valid value. 


kl i nk <- link; 

t «- stackPAddr <- (stackPAddr) + 1; * increment the index 

t and (77c); 556 check for 6 bit overflow 

skpif[ALU=0], t «- t + (stackPTopBits); * OR the top two bits into returned value 

skip, rscr «- lc; * indicate valid value 

rscr <- t-t; * indicate invalid value 
returnAndBranch[klink, rscr]; 


getStkPAddr: subroutine; 
t <- stackPAddr; 

return, t <- t + (stackPTopBits); 


iTopStkBits: subroutine; 

t <- (rO) - (100c); 

return, stackPTopBits «- t; * first valid index is zero. 

nextTopStkBits: subroutine; 
klink «- link; 
top level; 

t <r stackPTopBits «- (stackPTopBits) + (100c); 
t - (400c); 

skpif[ALU#0], rscr «- lc; 
rscr «- t-t; 

returnAndBranch[klink, rscr]; 


getRealStkAddr: subroutine; 
t <- TIOA&Stkp; 
return, t <- t and (377c); 

chkStkErr: subroutine; * rtn w/ ALU#0 ==> stk (underflow or overflow). 
* Clobber rscr2 Pointers[] 
rscr2 <- Pointers[]; 

return, rscr2 <- (rscr2) AND (poi nters . stkErr); 
top level ; 
stkXitTopL: 
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* 

% 


September 3, 1977 2:25 PM 

TEST CARRY20 FUNCTION 


This function causes a 1 go be or’d into the carry out bit that is used 
as input to bit 11 in the alu. Given that there was not already a carry, this 
function has the effect of adding 20B to the value in the alu. 



% 

carry20Test: 

t«-rscr<-17C; 
t**t+(rO) .CARRY20; 
rscr2 «- 37C; 
t<-t#( rscr2); 
skpif[ALU=0]; 

error; * T NE 17B + 0 + CARRY20 
t<- rs c r * 

t*-t+( rl) , CARRY20 ; * t<-17B+l+CARRY20 

rscr2<-20C; 

t«-t#( rscr2); 

skpif[ALU=0]; 

error; * T NE 17B+1=20(=17B+1+CARRY20) 
t<-r0; 

t<-t+( rO) , CARRY20 ; * t<-0+0+CARRY20 

rscr2«-20C; 
t<-t#( rscr2); 
skpif[ALU=0]; 

error; * T NE 20B=0+0+CARRY20 
t<-rO; 

t«-t-(rscr2) ; * t<--20B = (0-20B) 

t<-t+(r0) ,CARRY20; 
skpif[ALU=0]; 
error; 


o 
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* September 11, 1977 1:57 PM 

% 

TEST XORCARRY FUNCTION 

XORCARRY causes the carry in bit for bit 15 of the alu to be xor'd. 
Normally this bit is 0. When the bit is one, alu arithmetic functions will 
see a carry into bit 0. For A-B the ALUFM is programmed to provide a one 
and XORCARRY will leave a result one less than expected. 

°/o 

xorCarryTest: 

t«-(r0) + (r0) ,XORCARRY; 
t<-t#( rl); 
skpif[ALU=0]; 

error; * 1 = O+O+XORCARRY 
t«-rl; 

t<-t+( rO) , XORCARRY; 
t<-t#(2C); 
skpif[ALU=0]; 
xorCarryb: 

error; * 2= O+1+XORCARRY 
t<-rl; 

t«-t+( rl) .XORCARRY; 
t«-t#(3C); 
skpif[ALU=0]; 
xorCarryc: 

error; * 3= 1+1+XORCARRY 
t<-RMl; 

t<-t+(rO) .XORCARRY; 
skpif[ALU=0]; 
xorCarryd: 

error; * 0= -1+XORCARRY 

t+( rO)AND( rO) .XORCARRY; 
skpif[ALU=0]; 
xorCarrye: 

error; * CIN SHOULD BE IGNORED ON LOGICAL OPS! 

t<-( rl)AND( rl) .XORCARRY; 
t<-t#(rl); 
skpif[ALU=0]; 
xorCarryf: 

error; * SHOULD BE 1. CIN IGNORED ON LOGICAL OPS 

t«-(RMl)OR(RMl) .XORCARRY; 
t<-t#( RM1) ; 
skpif[ALU=0]; 
xorCarryg: 

error; * SHOULD BE -1. CIN IGNORED ON LOGICAL OPS 

t<-(rl)-(rl) .XORCARRY; 
t*-t#( RM1) ; 
skpif[ALU=0]; 
xorCarryh: 

error; * BWL SEZ THIS SHOULD BE -1. IE., 

* Rl-Rl causes 1+1777777, but xorcarry causes the op to become, 

* 1+177776 because "A-B” uses carryin = 1, and xorcarry causes it to be 

* zero! 
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* September 12, 1977 9:52 AM 

% 

TEST USESAVEDCARRY 

This function causes the alu carry bit from the last instruction to be used as 
the carry in bit to bit 15 during the current instruction. This bit is usually 
provided by the alufm and is usually zero (its the bit complemented by the 
xorcarry function). 

% 

% commented out 

savedCarry: 

T<-(RHIGH1) + (RHIGH1); * T<-0, CARRY<-1 

T«-T+(R0) .USESAVEDCARRY; * T<-0+0+LAST CARRY 
T*-T#( R1); 

SKPIF[ALU=0]; 

ERROR; * EXPECTED 1, USED LASTCARRY=1 

T<-(RM1) + (RM1) ; * T<~2, CARRY <-l 

T<-T+(R1) .USESAVEDCARRY; * T«~2+1+LAST CARRY 
SKPIF[ALU=0]; 
savedCarryB: 

ERROR; * EXPECTED 0, USED LASTCARRY=1 
T«-(R0) + (R0) ; * T<-0, CARRY<-0 

T«-(R1) + (R1) .USESAVEDCARRY; * T<-1+1+LAST CARRY 

T<-T#(2C) ; 

SKPIF[ALU=0]; 
savedCarryC: 

ERROR; * EXPECTED 2, USED LASTCARRY=0 
T<-(R0) + (R0) ; * T<-0, CARRY<-0 

T*-(RM1) + (RM1) .USESAVEDCARRY; * T«-(-l) + (-l) + LAST CARRY 

T<-T#( 177776C) ; 

SKPIF[ALU=0]; 

savedCarryD: 

ERROR; * EXPECTED -2, USED LASTCARRY=0 
T<-( RM1) + (RM1) ; * T«--2, CARRY<-1 

T<-(R1) + (R1) .USESAVEDCARRY; * T<-1+1+LAST CARRY 

T«-T#(3C); 

SKPIF[ALU=0]; 
savedCarryE: 

ERROR; * EXPECTED 3, USED LASTCARRY=1 
commented out% 
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* September 14, 1977 12:03 PM 

°/o 

TEST MULTIPLY STEP. 

MULTIPLY works as follows: 

H3[0 :15] + CARRY, ,ALU[0:14] = = > CARRY,,ALU/2 

Q[0 :15] <- ALU[15], ,Q[0:14] = = > ALU[15],,Q/2 

Q[14] OR'D INTO TNIA[10] AS SLOW BRANCH! ==> ADDR OR’D 2 IF Q[14]=l 

These tests invoke mulCheck, a subroutine that performs two services: 

1) T<-T+RSCR, MULTIPLY 

2) RSCR2<-1 IF Q[ 14] BRANCH IS TAKEN (ZERO OTHERWISE) 

ERRORS are numbered 1 thru 3: 

mulXerrl ==> T value wrong (H3) 
mulXerr2 ==> Q[14] branch wrong 
mulXerr3 ==> Q value wrong 

% 

multiplyTest: 

* Q[14]=0, CARRY=0, ALU15=0 
t*-Q<-rO; 

rscr<-t; 

cal 1 [mulCheck]; * t<-t+rscr,MULTIPLY= = >ALU<-0 , CARRY+0 
skpif[R EVEN], rscr2<-rscr2; 
mulAerrl: 

error; * TOOK Q[14]=l BRANCH 


t<-t; 

skpif[ALU=0]; 
mulAerr2: 

error; 585 CARRY,, (0+0)/2 SHOULD BE ZERO 
t+Q; 

skpif[ALU=0]; 
mulAerr3: 

error; * ALU15,,Q[0:14] SHOULD BE ZERO 

• Q[14]=0, CARRY=1, ALU15=0 

multiplyB: 546 Q=0; t<~l+l .MULTIPLY 

Q<-r0; 
rscr**rl; 

cal 1 [mulCheck] , t<-rml; * t+t+rscr,MULTIPLY = = >ALU<-0, CARRY<-1 

skpif[R EVEN], rscr2<-rscr2; 
mulBerrl: 

error; * TOOK Q[14]=l BRANCH 

t<-t#( rhighl); *-1+1 GENERATES CARRY BIT 

skpif[ALU=0]; 
mulBerr2: 

error; * CARRY,,(0+0)/2 SHOULD BE 100000 

t<-Q; * -1+1 WOULD LEAVE ALU15 = 0 

skpif[ALU=0]; 
mu!Berr3: 

error; 585 ALU15 , ,Q[0 :14] SHOULD BE ZERO 

* Q[14]=0, CARRY=0, ALU15=1 

multipiyC: * Q=0; t<-0+l .MULTIPLY 

t*-Q<-r0; 
rscr<-rl; 

cal 1 [mulCheck]; * t<-t+rscr,MULTIPLY= = >ALU<-1, CARRY<-0 
skpif [R EVEN], rscr2<-rscr2 ; 
mulCerrl: 

error; * TOOK Q[14]=l BRANCH 

t<-t; * 0+l==> CARRY<-0 

skpif[ALU=0]; 
mulCerr2: 

error; * CARRY,,(0+l)/2 SHOULD BE 0 

t+(rhighl)#(Q); * 0+1 WOULD LEAVE ALU15=1 
skpif[ALU=0]; 
mu!Cerr3: 

error; * ALU15,,Q[0:14] SHOULD BE 100000 
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* Q[14]=0, CARRY=1, ALU15=1 

multiplyD: * Q=0; t*-100001+100000, MULTIPLY 

Q<-r0; 

t*-rscr*-rhighl; 

call [mulCheck] , t*-t+( rl); * t*-t+rscr,MULTIPLY = = >ALU«-1, CARRY<-1 

skpif[R EVEN], rscr2*-rscr2; 
mulDerrl: 

error; * TOOK Q[14]=l BRANCH 

t*-t#( rhighl); * 1000001+100000==> CARRY*-1 

skpif[ALU=0]; 
mu!Derr2: 

error; * CARRY,,(1000001+100000)/2 SHOULD BE 100000 

t<-( rhighl)#(Q); * 1000001+100000 WOULD LEAVE ALU15 = 1 
skpif[ALU=0]; 
mu!Derr3: 

error; * ALU15,,Q[0:14] SHOULD BE 100000 
multiplyE: 

* Q[14]=l, CARRY=0, ALU15=0 
t*-( rl)+( rl); 

Q<-t; * Q[14]<-1 

t*-rO; 
rscr+t; 

cal 1 [mulCheck] ; * t*-t+rscr, MULTIPLY = = >ALU<-0, CARRY*-0 
skpif[R ODD], rscr2*-rscr2; 
mulEerrl: 

error; * DIDN’T TAKE Q[14]=l BRANCH 


t<-t; 

skpif[ALU=0]; 
mulEerr2: 

error; * CARRY,,(0+0)/2 SHOULD BE ZERO 

t+(rl)#(Q); 
skpif[ALU=0]; 
mulEerr3: 

error; * ALU15,,Q[0:14] SHOULD BE 1 

* Q[14]=l, CARRY=1, ALU15=0 

multiplyF: * Q=l; t<—1+1,MULTIPLY 

t«-(rl)+(rl); 

Q*-t; * Q[14]«-l 

rscr*-rl; 

cal 1 [mulCheck] , t*-rml; * t*-t+rscr,MULTIPLY= = >ALU*-0, CARRY*-1 

skpif[R ODD], rscr2*-rscr2; 
mulFerrl: 

error; * DIDN'T TAKE Q[14]=l BRANCH 

t*-t#( rhighl); *-1+1 GENERATES CARRY BIT 
skpif[ALU=0]; 
mulFerr2: 

error; * CARRY,,(0+0)/2 SHOULD BE 100000 

t*-( rl )#(Q) ; * -1+1 WOULD LEAVE ALU15 = 0 

skpif[ALU=0]; 
mulFerr3: 

error; * ALU15,,Q[0:14] SHOULD BE 1 

* Q[14]=l, CARRY=0, ALU15=1 

multiplyG: * 0=1; t*-0+1,MULTIPLY 

t<-( rl) + ( rl) ; 

Q+t; * Q[14]*-l 

t*-r0; 
rscr«*rl; 

cal 1 [mulCheck] ; * t+t+rscr ,MULTIPLY==>ALU*-1, CARRY*-0 
skpif[R ODD], rscr2*-rscr2; 
mulGerrl: 

error; * DIDN’T TAKE Q[14]=l BRANCH 

t*-t; * 0+l = = > CARRY*-0 

Skpif[ALU=0]; 
mulGerr2: 

error; * CARRY,,(0+l)/2 SHOULD BE 0 



kernel 4.me 


25-Sep-80 14:22:08 


Page 20 



t<-( rhighl) + l; * 0+1 WOULD LEAVE ALU15=1 

t«-t#(Q); 
skpif[ALU=0]; 
mulGerr3: 

error; * ALU15,,Q[0:14] SHOULD BE 100001 

* Q[14]=l, CARRY=1, ALU15=1 

multiplyH: * Q=2; t<-100001+100000 .MULTIPLY 

t<-( rl)+( rl) ; 

Q<-t; * Q[14]<-1 

t<-rscr<-rhighl; 

call [mu 1 Check] , t*-t+( rl); * t<-t+rscr,MULTIPLY= = >ALU<-1, CARRY<-1 

skpif[R ODD], rscr2<-rscr2; 
mulHerrl: 

error; * DIDN’T TAKE Q[14]=l BRANCH 

t<-t#( rhighl); * 1000001+100000 = = > CARRY+-1 
skpif[ALU=0]; 
mulHerr2: 

error; * CARRY,,(1000001+100000)/2 SHOULD BE 100000 

t<-(rhighl) + l; * 1000001+100000 WOULD LEAVE ALU15 = 1 

t<-t#(Q); 
skpif[ALU=0]; 
mulHerr3: 

error; * ALU15,,Q[0:14] SHOULD BE 100001 
multiplyJ: 

* Q<-r01 = >Q[14] = 0; CARRY=0 , ALU15 = 0 
t«-r01; 

Q<-t; * Q[14]<-0 

t*-r0; 
rscr«-t; 

cal 1 [mulCheck] ; * t<-t+rscr, MULTIPLY= = >ALU<-0 , CARRY<-0 
skpif[R EVEN] , rscr2<-rscr2; 
mulJerri: 

error; * TOOK Q[14]=l BRANCH 
t«-t; 

skpif[ALU=0]; 
mulJerr2: 

error; * CARRY,,(0+0)/2 SHOULD BE ZERO 

t<-( rOl) RSH 1; 
t«-t#(Q); 
skpif[ALU=0]; 
mulJerr3: 

error; * ALU15,,Q[0:14] SHOULD BE (rOl) RSH 1 
multiplyK: 

* Q<-rl0 = >Q[14] = 1; CARRY=0 , ALU15 = 0 
t«-rlO; 

Q<-t; * Q[14]<-1 

t<-r0; 

rscr«-t; 

cal 1 [mulCheck] ; * t«-t+rscr, MULTIPLY = = >ALU<-0, CARRY<-0 
skpif [R ODD] , rscr2<-rscr2; 
mulKerri: 

error; * DIDN’T TAKE Q[14]=l BRANCH 
t<-t; 

skpif[ALU=0]; 
mulKerr2: 

error; * CARRY,,(0+0)/2 SHOULD BE ZERO 

t«-(rl0) RSH 1; 
t<-t#(Q); 
skpif[ALU=0]; 
mulKerr3: 

error; * ALU15,,Q[0:14] SHOULD BE (r!0) RSH 1 


mulDone: BRANCH[afterMul]; 
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* September 11, 1977 2:46 PM 

% 

MULCHECK 

This subroutine performs, 

t<-t+( rscr) .MULTIPLY; 

It sets rscr2 = 0 IF Q[14] branch DID NOT HAPPEN. 

It sets rscr2=l IF Q[14] branch DID HAPPEN 

T and rscr2 ARE CLOBBERED! IT ASSUMES r0=0, rl=l. 

% 

SUBROUTINE; 

mulCheck: 

t<-t+( rscr) .MULTIPLY, GLOBAL, AT[700]; 

GOTO[.+l]; 

rscr2<-r0, AT[701]; 

RETURN; 

rscr2«-rl, AT[703]; 

RETURN; 

TOP LEVEL; 


afterMul: 



T3 tt 
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* 

% 


September 14, 1977 
DIVIDE TEST 


12:03 PM 


H3 <- ALU[ 1:15], , Q[0] = = > H3<- 2*ALU,,Q[0] 

Q <- Q[ 1:15 ] , CARRY = = > Q <- 2*Q, , CARRY 

ivideTest: 

Q0=0, CARRY=0 

Q<-rO; 

t«-(rl)+(rl), DIVIDE; *t«-l+l, DIVIDE = = > CARRY<-0, 

t<-t#(4C); 

skpif[ALU = 0] ; 

error; * 2*(1+1)=4, Q0=0 


t+Q; 

skpif[ALU=0]; 

error; * CARRY WAS ZERO, Q SHOULD BE ZERO 


divB: 

* Q0=0, CARRY=1 

Q«-r0; 
t«-rhighl; 

t<-t+( rl); * T = 100001 

t«-t+( rhighl),DIVIDE; * t <-100001+100000 , DIVIDE = = >ALU= 1, CARRY=1 

t<-t#(2C); 

skpif[ALU=0] ; 

error; * 2*(1+1)=4, Q0=0 

t<-(rl)#(Q) ; 
skpif[ALU=0]; 

error; * 2*0,,CARRY SHOULD BE 1 



divC: 
* 


Q0=1, CARRY=0 
Q+rhighl; 

t<-(rl) + (rl) .DIVIDE; * t<-l+l ,DIVIDE = = >ALU=2 , CARRY=0 

t«-t#(5C); 

skpif[ALU=0]; 

error; * 2*(2), ,Q[Q] = 5 

WQ); 

skpif[ALU=0]; 

error; * Q[1:15],,CARRY SHOULD BE ZERO 


divD: 

* Q0=1, CARRY=1 

t<-Q<-rhighl; * SET Q[0] TO OME 

t<-t+( rl); * T = 100001 

t+t+( rhighl) .DIVIDE; * t*-100001+100000 ,DIVIDE = = >ALU=1, CARRY=1 

t+t#(3C); 

skpif[ALU=0]; 

error; * 2*(1),,Q[0]=3 

t+(rl)#(Q); 
skpif[ALU=0]; 

error; * 2*0,,CARRY SHOULD BE 1 


divE: 

* 



Q+r01=>Q0=0, CARRY=1 

Q+rOl; 

t<-( rhighl) + l; * T = 100001 

t<-t+( rhighl) ,DIVIDE; * t<-100001+100000 ,DIVIDE = = >ALU=1, CARRY=1 

t+t#(2C); 

skpif[ALU=0]; 

error; * 2*(1),,Q[0]=2 

t<-(rOl) LSH 1; 

t<-t+( rl) ; * ADD ONE FOR CARRY 

t<-t#(Q); 
skpif[ALU=0]; 

error; * 2*r01,,CARRY SHOULD BE ((rOl)LSH 1)+1 
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* May 1, 1909 1:09 PM 

% 

CDIVIDE TEST 

H3 <- ALU[ 1:15], ,Q[0] = = > H3«- 2*ALU,,Q[0] 

Q <- Q[1:15] , CARRY = = > Q <- 2*Q , , CARRY * (COMPLEMENTED CARRY) 

% 

CdivideTest: 

* Q0=0, CARRY=0 
Q<-r0; 

t<-(rl) + (rl), CD I VIDE; *t«-l+l, DIVIDE = = > CARRY<-0 

t<-t#(4C) ; 

skpif[ALU=0]; 

error; * 2*(1+1)=4, Q0=0 

t+(rl)#(Q); 
skpif[ALU=0]; 

error; * CARRY' WAS 1, Q SHOULD BE 1 

CdivB: 

* Q0=0, CARRY=1 
Q+rO; 

t<-rhighl; 

t<-t+( rl) ; * T = 100001 

t<-t+(rhighl),CDIVIDE; * t <-100001+100000 , DIVIDE = = >ALU=1, CARRY=1 

t<-t#(2C) ; 

skpif[ALU=0]; 

error; * 2*(1+1)=4, Q0=0 

skpif[ALU=0]; 

error; * 2*0,,CARRY’ SHOULD BE 0 



CdivC: 

* Q0=1, CARRY=0 
Q<-rhighl; 

t<-(rl) + (rl),CDIVIDE ; * t+l+l,DIVIDE = = >ALU=2 , CARRY=0 

t<-t#(5C); 

skpif[ALU=0]; 

error; * 2*(1),,Q[0]=3 

t<-( rl)#(Q); 
skpif[ALU=0]; 

error; * Q[1:15],,CARRY' SHOULD BE 1 

CdivD: 

* Q0=1, CARRY=0 

T+Q<-rhighl; * SET Q[0] TO ONE 

T<-T+(Rl) ; * T = 100001 

T<-T+( rhighl) .CDIVIDE ; * T<-100001+100000 , DIVIDE = = >ALU=1, CARRY=1 

T+T#(3C); 
skpif[ALU=0]; 

ERROR; * 2*(1),,Q[0]=3 

T 4 "(Q); 

skpif[ALU=0]; 

ERROR; * 2*0,,CARRY’ SHOULD BE 0 

CdivE: 

* Q<-R01 = >Q0 = 0, CARRY=1 
Q<-R01; 

T<-( rhighl)+l; * T = 100001 

T<-T+(rhighl), CDIVIDE; * T<-100001+100000 , CDIVIDE = = >ALU=1, CARRY=1 
T<*T#(2C) ; 
skpif[ALU=0]; 

ERROR; * 2*( 1 ),,Q[0]=2 

T<-(R01) LSH 1; 

T+T#(Q); 
skpif[ALU=0]; 

ERROR; * 2*R01,,CARRY’ SHOULD BE (ROl)LSH 1 
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* September 9, 1977 5:09 PM 

% 

TEST 8 WAY SLOW B DISPATCH 

Go thru the loop 16 times to make sure that only the low 3 bits are 
or'd into next pc. keep counter in Q, loop control in CNT. 

% 

slowBr: 

cnt**17s; 
t<-q<-r0; 

rscr2*-7C; * THIS WILL BE A 3 BIT MASK 

slowBrL: * TOP OF LOOP 

t<-rml; 
rscr<-t; 
t*-q; 

BDISPATCH«-t; * DO DISPATCH W/ BITS IM T (=Q) • 

branch[BDTbl]; 

slowBRnoBr: * should have branched and didn't 

error; 

bdConverge: 

t<-( rscr2)AND(q); * MASK DISPATCH VALUE 

t<-t#( rscr); 
branch[.+2,ALU=0]; 
slowBRbadBr: 

error; * DIDN'T GO WHERE WE EXPECTED 

t<-( rl ) + (q) ; * GET NEXT VALUE FOR DISPATCH 

loopChk[slowBrL,CNT#0&-l], q<-t; 


afterBD: 

goto[afterKernel4]; 


SET[BDTblLoc,5110]; 

BDTbl : 

goto[bdConverge], 
goto[bdConverge], 
goto[bdConverge], 
goto[bdConverge], 
goto[bdConverge], 
goto[bdConverge], 
goto[bdConverge], 
goto[bdConverge], 
goto[bdConverge], 
goto[bdConverge], 
goto[bdConverge], 
goto[bdConverge], 
goto[bdConverge], 
goto[bdConverge], 
goto[bdConverge], 
goto[bdConverge], 


rscr<-rO, 
rscr«-rl, 
rscr<-2C, 
rscr<-3C, 
rscr«-4C, 
rscr<-5C, 
rscr<-6C, 
rscr<-7C, 
rscr<-10C, 
rscr«-llC, 
rscr<-12C, 
rscr<-13C, 
rscr<-14C, 
rscr<-15C, 
rscr«-16C, 
rscr*-17C, 


AT[BDTblLoc]; 

AT[BDTblLoc,1]; 

AT[BDTblLoc,2]; 

AT[BDTblLoc,3]; 

AT[BDTblLoc,4]; 

AT[BDTblLoc, 5]; 

AT[BDTblLoc,6]; 

AT[BDTblLoc,7]; 
AT[BDTblLoc,10] 
AT[BDTblLoc,11] 
AT[BDTblLoc,12] 
AT[BDTblLoc,13] 
AT[BDTblLoc,14] 
AT[BDTblLoc,15] 
AT[BDTblLoc,16] 
AT[BDTblLoc,17] 


* shouldn't be here 

* shouldn’t be here 

* shouldn’t be here 

* shouldn't be here 

* shouldn't be here 

* shouldn't be here 

* shouldn’t be here 

* shouldn’t be here 
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% 

Page Numbers: Yes First Page: 1 
Heading: 

kernelAlu.me October 20, 1978 10:38 AM % 

TITLE[KernelALU-model 1.8/30/78]; 

% 

October 19, 1978 1:13 PM 

PD<- for LU<- 

This file defines ALU operations for the program. Definitions for all possible ALU operations are give 
**n here with one line/definition. The lines for the 20 operations enabled should have the "n" replace 
**d by consecutive values from 0 to 17. 16 should be "NOT A" for the shifter and 17 is normally used a 

**s a variable by BitBlt (i.e., not defined here), but can be used otherwise, if desired. Other lines 

**should be commented out. 

Note that the letter "E" added as an argument where noted below converts the operation to emulator-only 
**. This is intended for locations used as variables by BitBlt, which must restore the smashed ALUFM 1 
**ocations to the proper value before exit. 

The "A" and "B" operations must both be defined because many macros optionally route using either A or 
**B for RB, T, MD, and Q (B path is preferred). Since ALUF[0] is the default for microinstructions, it 
** should contain a non-arithmetic operation to preserve CARRY and OVERFLOW branch conditions. 

Also, when running Midas the "B" operation is stored in ALUFM 0 and the NOT A operation in ALUFM 16, so 

** these should be loaded the same way by the microprogram to avoid confusion, unless there is some goo 

**d reason to do otherwise. 

Note that an important choice must be made between the arithmetic and logical versions of ALU<-A. The a 
Arithmetic version allows XORCARRY with ALU«-A but smashes OVERFLOW and CARRY branch conditions on ALU<- 
**A. 

% 
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ABOPB[PD<-, ,0,25]; ♦ALU^-B (use n = 0) 

ABOPA[PD<-, ,1,0]; ♦ALU^-A 

*(arithmetic--so XORCARRY ok. Requires no more 
♦time than boolean "A" in absence of carryin) 

♦ AB0PA[PD<-, , n , 37] ; *ALU<-A (logical, so XORCARRY illegal but OVERFLOW 

♦and CARRY branch conditions not smashed). 

♦"NOT B" and "NOT A” must be both defined also. 

ABOPB[MOT,,15,13]; *NOT B 

ABOPA[NOT,,16,1]; ^NOT A (use n=16 for shifter) 

♦Operations of no args (4th arg = letter E makes emulator-only) 

ZALU0P[A0,2,31]; *A0 [= all zeroes] 

ZALU0P[A1,3,7]; *A1 [= all ones] 

♦Arithmetic operations of two args [do not accept "slow" (external) 

♦B sources] (5th arg = letter E makes emulator-only) 

SALU0P[,+,,4,,14]; *A+B 

♦ SALUOP[,+,+l,n,,214]; *A+B+1 

SALU0P[,-,,5,,222]; ♦A-B 

♦ SALUOP[,-,-l,n,,22]; ♦A-B-l 

♦Boolean operations of two args (5th arg = letter E makes emulator-only) 

♦♦Note how synonyms are defined for # (XOR) and = (XNOR, EQV) 

ALU0P[,AND,,6,,35]; ♦A AND B 

ALUOP[,OR,,7,,27]; *A OR B 

ALUOP[,#,,10,,23]; XALUOP[,XOR,,n]; ♦A # B (A XOR B) 

♦ ALUOP[,=,,n,,15]; XALUOP[,XNOR,,n]; XALUOP[,EQV,,n]; 

ALU0P[,AND NOT,,11,,33]; ♦A AND NOT B [= A AND (NOT B)] 

ALUOP[,OR NOT,,12,,17]; ♦A OR NOT B [= A OR (NOT B)] 

♦ ALUOP[NOT,AND,,n,,21]; ♦NOT A AND B [= (NOT A) AND B] 

♦ ALUOP[NOT,OR,,n,,5]; *NOT A OR B [= (NOT A) OR B] 

♦ ALUOP[NOT,AND NOT,,n,,11]; ♦NOT A AND NOT B [= (NOT A) AND (NOT B)] 

♦ ALUOP[NOT,OR N0T,,n,,3]; ♦NOT A OR NOT B [= (NOT A) OR (NOT B)] 

♦Operations Gf one arg (5th arg = letter E makes emulator-only) 

♦ AOP[2,,n,6]; ^2A 

♦ AOP[2,+l,n,206]; *2A+1 

AOP[,+1,13,200]; ♦A+l 

AOP[,-1,14,36]; 


♦A-l 
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% 

Page Numbers: Yes First Page: 1 
Heading: 

postamble.me February 1, 1980 6:24 PM % 

TITLE[POSTAMBLE]; 

TOP LEVEL; 

% 

February 1, 1980 6:24 PM 

Fix goto[preBegin], described below, into goto[restartDiagnostic]. Postamble already defines a 
**nd uses preBegin. 

February 1, 1980 11:52 AM 

Fix restart to goto[preBegin]. This allows each diagnostic to perform whatever initialization 
**it wants. 

September 19, 1979 9:18 PM 

Fix another editing bug in chkSimulating, used the wrong bit to check for f1ags.conditionOK -- 
**just did it wrong. 

September 19, 1979 9:08 PM 

Fix bug in chkSimulating wherein an edit lost a carriage return and a statment became part of a 
** comment. Unfortunately, automatic line breaks made the statement look as if it were still there rat 
**her than making it look like part of the comment line. 

September 19, 1979 4:23 PM 

Fix placement errors associated with bumming locations from makeholdvalue and from checksimulat 

**ing. 

September 19, 1979 3:48 PM 

Bum locations to fit postamble with current os/microD: reallyDone, checkFlags global, make che 
**ckFlags callers exploit FF, eliminate noCirculate label, make others shorter.. 

September 19, 1979 10:41 AM 

change callers of getIM*, putIM* to use FF field when calling them. 

September 19, 1979 10:18 AM 

Create zeroHoldTRscr which loops to zero hold-- called by routines that invoke resetHold when t 
**he hold simulator may be functioning. Make getIM*, putIM* routines global. 

September 16, 1979 1:27 PM 

Bum code to fix storage full problem that occurs because OS 16/6 is bigger than OS 15/5: remove 
** kernel specific patch locations (patch*). 

August 1, 1979 3:28 PM 

Add scopeTrigger. 

June 17, 1979 4:48 PM 

Move IM data locations around to accommodate Ifu entry points 
April 26, 1979 11:03 AM 

Make justReturn global. 

April 19, 1979 5:03 PM 

Remove calls to incTask/HoldFreq from enable/disableConditionalTask. 

April 18, 1979 3:24 PM 

Remove DisplayOff from postamble. 

April 18, 1979 11:11 AM 

Rename chkTaskSim, chkHoldSim, simControl to incTaskFreq, incHoldFreq, makeHoldValue; clean up 
**setHold. 

April 17, 1979 10:51 PM 

SimControl now masks holdFreq and taskFreq & shifts them w/ constants defined in Postamble. 
April 11, 1979 3:49 PM 

Add breakpoint to "done", and fix, again, a bug associated with task simulation. Set defaultFl 
**agsP (when postamble defines it) to force taskSim and holdSim. 

March 7, 1979 11:42 PM 

Set RBASE to defaultRegion upon entry to postamble, thnx to Roger. 

February 16, 1979 2:54 PM 

Modify routines that read IM to invert the value returned in link if bl from that value =1 (thi 
**s implies the whole value was inverted). 

January 25, 1979 10:41 AM 

Change taskCirculate code to accommodate taskSim wakeups for task 10D, 12B 
January 18, 1979 5:13 PM 

Modify checkTaskNum to use the RM value, currentTaskNum, and modify taskCircInc to keep the cop 
**y in currentTaskNum. 

January 15, 1979 1:25 PM 

add justReturn, a subroutine that just returns 
January 9, 1979 12:07 PM 

breakpoint on xorTaskSimXit to avoid midas bug 

% 

%*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

TABLE of CONTENTS, by order of Occurence 

done location where diagnostics go when they are finished --gives control to postamble code the incr 

**ements iterations, implements hold and task simulation and task circulation. 

reallyDone Location where postamble inits 2 rm locations then performs "GoTo BEGIN" 

restart Reinit diagnostic state, then restart the diagnostic. 

incTaskFreq Increment the task frequency counter 

incHoldFreq Increment the hold frequency counter 

makeHoldValue Counstruct the "Hoid&TaskSim" value from holdFreq and taskFreq, given that each is enab 
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**led in Flags 

chkRunSimulators Cause Hold or Task sim to happen, if required 

chkSimulating Return ALU#0 if some sort of simulating occuring 
taskCirculate Implement task circulation 

inclterations Increment iterations counter (>16 bits) 

resetHold Reset Hold&TaskSim to its previous value. 

setHold Set hold&task sim, notifying task simulator to do it. 
simlnit Entry point for initialization in task simulator code 
testTaskSim Subroutine that tests task simulator 
fixSim Run Hold&TaskSim given current holdFreq and taskFreq 
readByte3 Return byte 3 of an IM location 

getIMRH Return right half of an IM location 
getIMLH Return left half of an IM location 
putIMRH Write Right half of an IM location 
putIMLH Write Left half aof an IM location 


checkFlags 
checkTaskNum 
notifyTask 
topLvlPostRtn 
scopeTrigger 
justReturn 


Return Alu result & t based on entry mask & current flags 
Return "currentTaskNum" # expectedTaskNum 
Awaken take in T 

Code that returns through mainPostRtn 
Global subroutine that performs TIOA<-0, TIOA<-177777 
global subroutine that returns only 
random return random numbers, used w/ getRand[] macro. 
saveRandState Save random number generator's state 
restoreRandState Restore old state to random number generator 

getRandV Part of random number linkage 

xorFlags Xor Flags w/ t 

xorTaskCirc toggle flags.taskCire 

xorHoldSim toggle f1ags.hoidSim 

xorTaskSim toggle f1ags.taskSim 

disableConditionalTask disable conditional tasking 
enableConditionalTask enable conditional tasking 

ERR global label where ERROR macro gives control 
IMdata beginning of Postamble's FLAGS, et c. 

H-+H 

IM[ILC,0]; 

f++H 

This code presumes R0=0 and uses RSCR, RSCR2, T, and Q. It uses a number of other registers in 
** a different RM region. 

When Postamble gets control of the processor at "Done”, bits in "Flags", a word in IM determine 
** which of Postamble's functions will occur when it runs. At the least. Postamble inrements at 32 bit 
** number in IM called Iterations. If flags.taskSim is true, the task simulator started. The task si 
**mulator awakens after a software controllable number of clocks has occured. The microcode that wakes 
** up must reset the task simulator before it (the microcode) blocks to cause a task wakeup to occur ag 
**ain. The first time a program runs (ie., the time before it gives control to "done") the task Simula 
**tor and the hold simulator (discussed below) are inactive. Running the task simulator forces task sp 
**ecific hardware functions to effect the state of the machine. 

When f1ags.hoidSim is set, Postamble sets the hold simulator to a non-zero value. The 8 bit "hold valu 
**e" enters a circulating shift register where occurence of a "1" bit at b[Q] causes an external hold. 
** This exercises the hold hardware. 

The body of postamble contains a number of procedures for user programs, including routines to read and 
** write IM, a routine to return a random number, and routines to initialize a task's pc and to notify 
••it. 


done: 
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♦ June 17, 1979 4:49 PM POSTAMBLE CONSTANTS 


set[randomTloc, 620]; * random number generator may have to 

* be moved to "global" call location if extensively used! 


* 

* 


set[f1agsLoc, 1000]; 
set[taskFreqLoc, 1400]; 
set[holdFreqLoc, 2000]; 
set[nextTaskLoc, 2400]; 
set[itrsLoc, 3000]; 
holdValueLoc defined in 
set[preBeginLoc, 4000]; 
set[initTloc, 4400]; 


mc[f1agsLocC, flagsLoc]; 
mc[taskFreqLocC, taskFreqLoc]; 
mc[holdFreqLocC, hoidFreqLoc]; 
mc[nextTaskLocC, nextTaskLoc]; 
mc[itrsLocC, itrsLoc]; 
preamble! 

mc[preBeginLocC, preBeginLoc]; 
mc[initTlocC, initTloc]; 


ifdef[simlnitLocC,,mc[simlnitLocC, initTloc] ]; * define the bmux constant for the 
address of the task simulator code. If its already been defined, leave it as is. 


f1ags.taskSim defined in preamble! 
f1ags.hoidSim defined in preamble! 
f1ags.simulating defined in preamble! 

mc[flags.testTasks, bl3]; * than 8 flags (since READIM rtns a BYTE) 

mc[flags.conditional, flags.conditionalP]; * allow simulating iff flags.simulating 

* AND f1ags.conditionOK 

mc[flags.conditionOK, flags.conditionOKp]; * enable conditional simulating 


This portion of the kernel code encapsulates the microdiagnostic with an outer loop. This outer 
** loop has several features that it implements: 
task simulation 
hold simulation 
task switching 


Task simulation refers to the taskSim register in the hardware. It is 4 bits wide; taskSim[0] enables t 
**he task simulator and taskSim[l:3] form a counter that determines the number of cycles before a task 
**wakeup occurs. 

Hold simulation is similar: holdSim is an 8-bit recirculating shift register in which the presence of a 
** 1 in bit 7 causes HOLD two instructions later. 

Task switching determines which task will run the microdiagnostics. 


These features are controlled by the flags word in IM. If the appropriate bits are set to one, the asso 
**ciated feature will function. The bits are defined above (flags.taskSim, f1ags.hoidSim, f1ags.testTas 



rmRegion[rmForKernelRtn]; 
knowRbase[rmForKernelRtn]; 

rv[setHoldRtn, 0]; 

rv[oldt, 0]; * save t, rscr, rscr2, rtn link for resetHold 

rv[oldrscr, 0]; 

rv[oldrscr2, 0]; 

rv[resetHoldRtn, 0]; 

rv[xorFlagsRtn,0]; 

rv[f1agSubrsRtn, 0]; 

rv[mainPostRtn, 0]; 

knowRbase[rm2ForKernelRtn]; * defined in preamble because of macros 

* that reference randV, randX 


knowRbase[defaultRegion]; 


o 




postamble.mc 


25-Sep-80 14:22:08 


Page 4 



* February 1, 1980 6:24 PM POSTAMBLE CONTROL CODE 

O0 r- 5 0 \ 

RBASE <- rbase[defaultRegion], breakpoint; * set RBASE incase user’s is different. 

cal1[incTaskFreq]; 

cal 1[incHoldFreq]; 

cal 1[makeHoldValue]; 

cal 1[taskCirculate]; 

cal 1[inclterations]; 

call[checkFlags]t<-f 1 ags. testTasks ; * bookkeeping is done, switch tasks if required 

skpif[ALU#0]; 

branch[preBegin]; * xit if not running other tasks 

taskCirclnit: * now that bookkeeping is done, switch tasks if required 

noop; * for placement, 
cal 1[checkTaskNum]; 
rscr <- t; * rscr <- nextTask 


t «- preBeginLocC; * link t «- preBeginLoc 

subroutine; 
taskCire: 

zeroHold[rscr2]; * turn off hold-task sim during LdTpc<-, wakeup 

link «- t; 
t «- rscr; 
top level; 

ldTPC «- t; 5,5 tpc[nextTask] «- preBeginLoc 

call[notifyTask]; * wakeup nextTask: task num in t 

set[xtask, 1]; 

block; 
set[xtask, 0]; 

preBegin: noop, at[preBeginLoc]; 

call[chkRunSimulators]; * check for simulator conditions and run if required 

reallyDone: * LOOP TO BEGIN 

t*-RSCR«-al; 

goto[begin], RSCR2<-t; 


restart: * restart diagnostics from ’’initial” state 

randV «- t-t; * restart random number generator 
randX «- t-t; 


rscr <- t-t * 
cal 1[putIMRH], 

pern <- t — t* 

cal 1[putIMRH], 
rscr <- t-t • 
cal 1[putIMRH], 


* restart hold/task simulator stuff 
t <- hoi dFreqLocC ; 

t<-taskF reqLocC; 

t <- hoi dVal ueLocC; 


rscr 4 - t-t; * restart iterations count 
call [putIMRH] , t itrsLocC; 


branch[restartDiagnostic]; * special entry point so each diagnostic 

can perform whatever special initialization that it wants to perform 
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* January 18, 1978 1:51 PM 


This code sets the taskSim value with the next value if f1ags.testTasks 

** used. 


is true. 


Otherwise 0 is 


IF flags.taskSim THEN 

BEGIN -- when hardware counts to 17 it awakens 

taskFreq «- (taskFreq + 1) or 10b; -- simTask 

IF taskFreq > 15 THEN taskFreq <- 12; -- always wait min=2 cycles 

END 

ELSE taskFreq <- 0; 

IF flags.holdSim THEN 
BEGIN 

holdFreq <- holdFreq+1; 

IF holdFreq >376 THEN holdFreq «- 0; 

END; 

ELSE holdFreq <- 0; 



incTaskFreq: subroutine; 
t <- link; 
mainPostRtn «- t; 
top level; 

call[checkFlags] , t<-fl ags. taskSim; * see if taskSim enabled 

branch[writeTaskSim, al u = 0] , t«-r0; * use 0 if not enabled 

t^taskFreqLocC; * inerment next taskSim 
cal 1[readByte3]; 
t*-(rl)+(t); 

t-(156C); * Use [1..156). 156 => max wait, 

skpif[alu<0]; * 1 = > min wait. Beware infinite hold! 

t<-rl; * see discussion at simlnit, simSet code 
noop; 

writeTaskSim: 

rscr «- t; 

call[putIMRH] , t«-taskFreqLocC; * update IM location 

taskSimRtn: 

goto[topLvlPostRtn]; 

incHoldFreq: subroutine; * see if holdSim enabled 

t «- link; 
mainPostRtn «- t; 
top level; 

call[checkFlags], t«-f1ags.hoidSim; 

branch[noHoldSim, al u = 0], t<-r0; * use zero if hold not enabled 

t«-holdFreqLocC; 

cal 1[readByte3]; 

t«-t+(rl); 

t-(377c); * IF holdFreq >376 

skpif[alu<0]; 

t<-rl; * THEN holdFreq 4- i ; 

noop; * here for placement 

noHoldSim: 

rscr «- t; * rewrite IM 

call [putIMRH] , t <- hoi dFreqLocC; 

hoidSimRtn: 

goto[topLvlPostRtn]; 
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* April 17, 1979 10:51 PM 

y 0 *++4-+++++-M-++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

This code actually controls the task and hold loading. It is responsible for initializing T for the tas 
**k at simTaskLevel, and it is responsible for initializing HOLD. 

The code proceeds by constructing the current value to be loaded into hold and placing it in IM 
** at hoidValueLoc. Kernel loads HOLD as its last act before looping to BEGIN. 

hoid&tasksim*- requires hold value in left byte, task counter value in right byte. 
%*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
makeHoldValue: subroutine; * construct holdValue 

saveReturn[mainPostRtn]; 

call[chkSimulating]; 
skpif[alu#0]; 
branch[simCtrl0]; 

t<-hol dFreqLocC; * rscr2 <- holdFreq 
call [readByte3] , t*-hol dFreqLocC; 
rscr2 «- t; 

cal 1 [readByte3] , t<-taskFreqLocC; * t taskFreq 

tHsh[t, sim. taskShif t]; * position hold and task values 

t<-t and (sim. taskMask); 

rscr2 «- lsh[rscr2, sim. hoi dShif t] ; 

rscr2 «- (rscr2) and (sim.hoidMask); 

rscr2 <- (rscr2) and (377c); 

rscr2 <- (t) + (rscr2); * taskFreq,, hoi dFreq 
rscr «- rscr2; 

% 

now, save combined taskSim, holdSim values in IM. Last thing done before exiting postamble is to set H 
**OLD if simulating. 

% 

simCtrlWHold: ♦ may branch here from simCtrlO 

call[putIMRH], t «- hoidValueLocC; * * write holdValue into holdValueLoc 

branch[simCtrlRtn]; 

simCtrlO: 

branch[simCtr!WHold], rscr <- t-t; * write zero into holdValueLoc 

simCtrlRtn: 

goto[topLvlPostRtn]; 
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* September 19, 1979 9:09 PM 

%*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
IF chkSimulating[] THEM fixSimulator[]; 

* cause hold or task simulator to run, if required 


chkRunSimulators: subroutine; 

saveReturn[chkRunSimRtn]; 
cal 1[chkSimulating]; 

dblBranch[chkRunsimXit, chkRunSimDoIt, alu=0]; 
chkRunSimDoIt: * run the simulator 

noop; 

cal 1[fixSim]; 
noop; 

chkRunSimXit: 

returnlls i ng[chkRunSimRtn]; 


* September 19, 1979 9:19 PM 


chkSimulating: PROCEDURE RETURNS[weAreSimulating: BOOLEAN] = 

BEGIN 

weAreSimulating «- FALSE; 

IF flags.Simulating THEN 

IF ~(flags.Conditional) OR (flags.Conditional AND f1ags.ConditionOK) THEN 
weAreSimulating «- TRUE; 

END; 


chkSimulating: subroutine; 

saveReturn[chkSimulatingRtn]; 

cal 1 [checkFl ags] , t<-fl ags. simul ating ; * check for taskSim OR holdSim 

branch[chkSimNo, alu=0]; 

t «- fl ags . condi tional; * We're simulating, check 

cal 1 [checkFl ags] , t <- fl ags. condi tional; 
dblbranch[chkSimYes, chkSimCond, alu=0]; 
chkSimCond: * conditional simulation, check for ok 

t <- fl ags. condi tionOK; 
cal 1[checkFlags]; 
skpif[alu=0]; 

branch[chkSimYes]; * conditionOK is set, do it! 

branch[chkSimNo]; 

chkSimYes: * run the simulator 

t «- (rO)+l; * rtn w/ alu#0 

chkSimRtn: 

returnAndBranch[chkSimulatingRtn, t]; 
chkSimNo: 

branch[chkSimRtn], t <- rO; * rtn w/ alu = 0 
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* January 25, 1979 10:44 AM 

% 

This code controls task circulation for the diagnostics: when f1ags.testTasks is set, postamble 
** causes successive tasks to execute the diagnostic code when the current task has completed. If flag 
**s.taskSim is true the diagnostic is using the taskSimulator to periodically awaken the simulator task 
**; consequently, that task (simTaskLevel) must not execute the diagnostic -- otherwise the advantage o 
**f the simulator for testing the effects of task switching will be lost. 

IF -flags.testTasks THEN RETURN; 

temp <- getTaskNum[] + 1; -- increment the current number 

IF flags.taskSim THEN 

IF temp = simTaskLevel THEN temp «- temp+1; 

IF temp > maxTaskLevel THEN temp <- 0; 
putTaskNum[temp]; -- remember it in IM 

% 

taskCirculate: subroutine; 

saveReturn[mainPostRtn]; 

cal 1 [checkFl ags] , t «- fl ags . testTasks ; 

branch[taskCircRtn, ALU=0]; * Don't bother if not task circulating, 

noop; 

call[checkTaskNum]; * Increment the current task number, 

t ** t + (rl); * Current value came back in t. 

q «- t; * Remember incremented value in Q. 


cal 1 [checkFlags] , t <- fl ags . taskSim; 

skpif[ALU#0], t <- q; * Now, see if using task simulator. 

branch[taskCircChk]; * If not task simulating, check for max size. 

t - (simTaskLevelC); * Since we're task simulating, avoid 

skpif[ALU#0]; * we must avoid simTaskLevel. 

t <- t+1; * Increment over simTask if required, 

noop; 


taskCircChk: 

t - (20C); * See if tasknum is too big. 

skpif[ALU#0]; 

t «- t-t; * We wraparound to zero. 


currentTaskNum «- t; * keep it in both RM and IM 

rscr +- t; 

call [putIMRH] , t «- nextTaskLocC; 
noop; * for placement 


taskCircRtn: 

goto[topLvlPostRtn]; 
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* January 18, 1978 1:57 PM 

inclterations: subroutine; * maintain double precision count at incItrsLoc 

t «- link; 
mainPostRtn <- t; 
top level; 

cal 1 [getIMRH], t <- itrsLocC; * increment iteration count at tableloc+1 
rscr <- (t) +1; 

rscr2 «- rscr; * copy new itrs 

rscr2 <- (t) #(rscr); * see if new bO # old bO 

rscr2 «- (rscr2) AND (b0); 
skpif[al u#0] ; 

branch[incltrs2], q «- r0; * new bO = old bO. remember in q and write 

t and (BO); * see if bO went from 0 to 1 or 1 to 0 (carry) 

skpif[alu = 0], q<-r0; * skpif old bO = 0 

q «- rl; 
incltrs2: 


call[putIMRH], t <- itrsLocC; * T = addr, rscr = value 
rscr2 <- q; 

branch[incItrsRtn,alu=0]; * goto incItrsRtn if no carry 


incItersHil6: 

link <- t; * read hi byte of hi 16 bits 

cal1[getIMLH]; 
rscr *- (t) + l; 

call[putIMLH], t <- itrsLocC; * T = addr, rscr = value 
noop; * help the instruction placer. 


incItrsRtn: 

goto[topLvlPostRtn]; 
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* March 20, 1978 1:51 PM KERNEL - COMMON SUBROUTINES 


resetHold: subroutine; * special subroutine called by IM manipulating 

* code. This subr saves t, rscr, rscr2 and causes hold to be initialized to the value in 

* holdValueLocC. It restores the RM and T values before returning. 

oldT <- t; 
t «- link; 
resetHoldRtn <- t; 
top 1evel; 
t <- rscr; 
oldrscr <- t; 
t <- rscr2; 

oldrscr2 <- t; * link, t, rscr, and rscr2 are now saved. 


t «- HoldValueLocC 
subroutine; 
link <- t; 
top level; 
readim[3]; 
subroutine; 
t <- link; 
t and (bl); 
skpif[ALU=0]; 
t «- not( t); 
t «- t and (getIMmask); 


* READ RIGHT HALF, HoldValueLocC 


* read low order byte 

* low byte in t 

* see if the data is inverted. If so, bl will 

* 1, and we must reinvert the data. 


* isolate the byte 


rscr «- HoldValueLocC; 
subroutine; 

1 ink <- rscr; 
top level; 

readim[2]; * read hi order byte 

subroutine; 

rscr2 «- link; * hi byte in rscr2 

(rscr2) and (bl); * see if the data is inverted. If so, bl will 

skpif[ALU=0]; * 1, and we must reinvert the data. 

rscr2 «- not(rscr2); 

rscr2 «- (rscr2) and (getIMmask); * isolate the byte 


top level; 
noop; 

rscr2 «- lsh[rscr2, 10]; * left shift hi byte 
t «- t and (377C); * isolate low byte 

t <r t OR (rscr2); * add hi byte 

cal 1[setHold]; 


knowRbase[rmForKernelRtn]; * restore link, t, rscr, rscr2, then return 

RBASE «- rbase[ rmForKernel Rtn] ; 

t «- oldrscr; 

rscr <- t; 

t <- oldrscr2; 

rscr2 «- t; 

subroutine; 

link «- resetHoldRtn; 

return, t «- oldt, RBASE «- rbase[defaultRegion]; 


o 
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* June 23, 1978 10:22 AM 

setHold: subroutine; * ENTER w/ T = HOLD value 

* clobber t, rscr, rscr2 

zeroHold[rscr2]; * kill hold-task sim before polyphas instrs xqt 

rscr2 <- q; * SAVE Q 

q «- t; * save hold value, then save rtn link 
t <- link; 
setHoldRtn <- t; 

taskingon; 

t «- simlnitLocC; * defined w/ postamble constants OR in 

* some user specific code (eg., memSubrsA where RM values are defined). This 

* convention allows users to specify their own code to run when the simulator task runs, 

link <- t; * cause task taskSimLevel to put 

top 1evel; 

ldTPC «- simTaskLevelC; * proper hold value in T for refresh 

notify[simTaskLevel]; * after task switch occurs. Remember 

* taskSim is a counter, refresh it! 
noop; * wakeup will happen soon 
noop; 

rbase <- RBASE[rmForKernelRtn] ; 

t<- setHoldRtn, rbase <- RBASE[defaultRegion]; 

Q +■ rscr2; * restore Q 

subroutine; 
link «- t; 
return; 

* This code actually causes T to be set properly and branches to the code that sets HOLD. 

set[xtask, 1]; 


simlnit: 

t <- q, at[initTloc]; 

simSet: 

hoid&tasksim<-t; * T init'd at simlnit 
noop; * this noop doesn’t cause hold to count 
simBlock: 

branch[simSet], block; * count hold, block 

% 

Note: if t = 14, then hold = 16 when the simulator blocks. The preempted task will execute one instruct 
**ion, then the task simulator will waken the simulator task. 

% 


set[xtask, 0]; 

* November 6, 1978 12:07 PM MIDAS SUBROUTINE for testing the task simulator 

testTaskSim: subroutine; 

rscr <- link; * save return in case we later want it 
top 1evel ; 

t «- 1 sh[t, 10]; * ENTER w/ T = task sim val NOT shifted 
q <- t; * simlnit expects q = hold value 

subroutine; 
t ♦* initTlocC; 
link «- t; 
top 1evel; 

LDTPC <r simTaskLevelC; 
notify[simTaskLevel]; 

noop; 

t <- t - t; * t <- 0 

branch[., alu = 0], t<-t; * this shouldn't change 

testTaskErr: 

branch[.], breakpoint; 

subroutine; 

1 ink *- rscr; 
return; 

fixSim: subroutine; 

t<-link; * save return in fixSimRtn 
fixSimRtn <- t; 
top level; 
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cal 1[makeHoldValue]; * compose holdValue and set hardware 

call[getIMRH] , t <- hoidValueLocC; 
cal 1[setHold]; 


returnUsing[fixSimRtn]; 


zeroHoldTRscr: subroutine; 
t<-4c; 
rscr«-a0; 
zeroHoldTRscrL: 

Hoi d&TaskSim<-rscr; 
t«-t-l, Hoi d&TaskSim<-rscr; 

1oopUntil[alu<0, zeroHoldTRscrL]; 
return; 




o 
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* January 18, 1979 5:18 PM * READ/WRITE IM 

% 

The subroutines that read and write IM turn OFF hold simulator before touching IM. Before they 
**return to the caller, the invoke "resetHold" to reset the hold register to the contents of "holdValue 
**Loc". By convention, the current value of the two simulator registers is kept in "hoidValueLoc" for t 
**his express purpose. Zeroing and resetting hold is done because of hardware restrictions: hold and po 
**lyphase instructions don’t mix. 

ReadIM[] instructions are followed by a mask operation with getIMmask because of the interactio 
**n between DWATCH (Midas facility) and LINK[0]. 

% 


readByte3: subroutine; * CLOBBER T, RSCR! 
zeroHold[rscr]; 


rscr <- 1 ink; 
link «- t; 


* this routine assumes t points to IM 

* it reads the least significan byte in IM 


top level; 
readim[3]; 
subroutine; 
t<-link; * t = 
t and (b1); 
skpif[ALU=0]; 
t *■ not( t); 
t <- t and (getIMmask); 


read byte 3 


byte3 

* see if the data is inverted. If so, 

♦ 1, and we must reinvert the data. 


isolate the byte 


bl will 


top level; * reset value of hold and return 

call[resetHold]; 

subroutine; 

link <- rscr; 

return; * return w/ byte in t 


getIMRH: subroutine, global; * CLOBBER T, RSCR, RSCR2! 

zeroHold[rscr]; * disable task/hold Sim before touching IM 


rscr «- link; 
link <- t; 


* ENTER w/ T pointing to IM location 

* read hi byte of right half 


top level; 
readim[2]; 
subroutine; 

rscr2 <- link; * rscr2 = high byte 

(rscr2) and (bl); * see if the data is inverted. If so, bl will 

skpif[ALU=0]; * 1, and we must reinvert the data. 

rscr2 <- not( rscr2); 

rscr2 <- (rscr2) and (getIMmask); * isolate the byte 

link «- t; * read low byte of right half 

top level; 
readim[3]; 
subroutine; 
t «- 1 ink; 
t and (bl); 
skpif[ALU=0]; 
t «- not( t); 

t <- t and (getIMmask); * isolate the byte 


* t = low byte, rscr2 = hi byte 

* see if the data is inverted. If so, bl will 

* 1, and we must reinvert the data. 


rscr2 «- lsh[rscr2, 10]; 

t <- t + (rscr2); * RETURN w/ T = IMRH 


top level ; 

cal 1[resetHold]; 

subroutine; 

1 ink <- rscr; 
return; 


getIMLH: subroutine, global; * CLOBBER T, RSCR, RSCR2! 

zeroHold[rscr]; * disable task/hold Sim before touching IM 

rscr <- link; * ENTER w/ T pointing to IM location 
link <- t; 

top level; 538 read hi byte of left half 

readim[Q]; 
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subroutine; 

rscr2 <- link; * rscr2 = hi byte 

(rscr2) and (b1); * see if the data is inverted. If so, bl will 

skpif[ALU=0]; * 1, and we must reinvert the data. 

rscr2 <- not( rscr2); 

rscr2 <- (rscr2) and (getIMmask); * isolate the byte 

link «- t; * read low byte of left half 

top level; 
readim[l]; 

subroutine; * CLOBBER T, RSCR, RSCR2! 
t «- link; * t = low byte, rscr2 = hi byte 

t and (bl); * see if the data is inverted. If so, bl will 

skpif[ALU=0]; * 1, and we must reinvert the data, 

t <- not( t); 

t <- t and (getIMmask); * isolate the byte 
rscr2 lsh[rscr2, 10]; 

t <- t + (rscr2); * RETURN w/ T = IMLH 

top level; 

cal 1[resetHold]; 

subroutine; 

1 ink 4- rscr; 
return; 

putIMRH: subroutine, global; * T = addr, RSCR = value, clobberr RSCR2 
rscr2 «- link; 
link <- t; 

zeroHold[t]; * disable task/hold Sim before touching IM 

top level; 
t rscr; 

IMRHB’POK <- t; 

cal 1[resetHold]; 
subroutine; 

1 ink <- rscr2; 
return; 

putIMLH: subroutine, global; * T = addr, RSCR = value, Clobber RSCR2 
rscr2 «- rscr; 
rscr «- link; 
link <- t; 

zeroHold[t]; * disable task/hold Sim before touching IM 

top level; 
t <- rscr2; 

IMLHRO ' POK 4- t; 

call[resetHold]; 
subroutine; 

1 ink <- rscr; 
return; 

checkFlags: subroutine, global; * CLOBBER T, RSCR, RSCR2 

rscr *• link; * this routine assumes t has a bit mask 

zeroHold[rscr2]; * disable task/hold Sim before touching IM 

rscr2 <- flagsLocC; * it reads the flags word in IM 

link «- rscr2; * and performs t«-tANDflag 

top level; 

readim[3]; 

subroutine; 

rscr2 <- link; 

(rscr2) and (bl); * see if the data is inverted. If so, bl will 

skpif[ALU=0]; * 1, and we must reinvert the data. 

rscr2 <- not( rscr2); 

rscr2 (rscr2) and (getIMmask); * isolate the byte 

top level ; 
call[resetHold]; 
subroutine; 
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1 ink <- rscr; 

return, t <- t AND(rscr2); * returnee can do alu=0 fast branch 

checkTaskNum: subroutine; * enter: T=expected task num, 

rscr<-t, RBASE «- rbase[currentTaskMum]; * return: T = current task num, branch condition 

t «- currentTaskNum, RBASE «- rbase[defaul tRegion] ; * clobber rscr, rscr2 

return, t#(rscr); * rtn w/ branch condition, t=current task 

* number, rscr = expected task number. 
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* August 1, 1979 3:30 PM other, miscel 

notifyTask: subroutine; 
rscr<- link; 
bigBDispatch*-t; 
top 1evel ; 

branch[dispatchTbl]; 
set[nloc, 6600]; 
dispatchTbl: 

branch[nxit], notify[0], at[nl 

branch[nxit], notify[l], at[nl 

branch[nxit], notify[2], at[nl 

branch[nxit], notify[3], at[nl 

branch[nxit], notify[4], at[nl 

branch[nxit], notify[5], at[nl 

branch[nxit], notify[6], at[nl 

branch[nxit], notify[7], at[nl 

branch[nxit], notify[10], at[nl 

branch[nxit], notify[ll], at[nl 

branch[nxit], notify[12], at[nl 

branch[nxit], notify[13], at[nl 

branch[nxit], notify[14], at[nl 

branch[nxit], notify[15], at[nl 

branch[nxit], notify[16], at[nl 

branch[nxit], notify[17], at[nl 

branch[.], breakpoint, at[nloc,20]; 
branch[.], breakpoint, at[nloc,21]; 


nxit: 


subroutine; 

1 ink <- rscr; 
return; 


laneous subroutines* 


oc, 0]; 
oc,1]; 
oc, 2]; 
oc, 3]; 
oc,4]; 
oc,5]; 
oc,6]; 
O c , 7 ] ; 
oc,10] 
oc,11] 
oc,12] 
oc,13] 
oc,14] 
oc,15] 
oc,16] 
oc,17] 


topLvlPostRtn: 

RBASE <- rbase[mainPostRtn]; 

1 ink <- mainPostRtn; 

return, RBASE <- rbase[defaul tRegion] ; 

scopeTrigger: subroutine; 
t <- aO, global; 

TIOA <- t, T<-al; 
return, TIOA<-t; 

justReturn: * this subroutine ONLY RETURNS. Calling justReturn forces the instruction 

return, global; * (logically) after the call to occur in the physically 

* next location after the call. This is a way of reserving a noop that can ALWAYS be 

* safely patched with a "call". 
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April 


random: 


24, 1978 6:51 PM 

knowRbase[randomRM]; 


goto[randoml], 
goto[randoml], 
goto[randoml], 
goto[randoml], 
goto[randoml], 
goto[randoml] , 
goto[randoml], 
goto[randoml], 


t 

4 - 

rndmO, 

RBASE 

t 

4 - 

rndml, 

RBASE 

t 

4 - 

rndm2, 

RBASE 

t 

4 - 

rndm3, 

RBASE 

t 

4 - 

rndm4, 

RBASE 

t 

4 - 

rndm5, 

RBASE 

t 

4 - 

rndm6, 

RBASE 

t 

4 - 

rndm7, 

RBASE 


4 - 

4 - 


4 - 


rbase[randV], 
rbase[randV], 
rbase[randV], 
rbase[randV], 
rbase[randV], 
rbase[randV], 
rbase[randV], 
rbase[randV], 


at[randomTloc,0] 
at[randomTloc,1] 
at[randomTloc, 2] 
at[randomTloc,3] 
at[randomTloc,4] 
at[randomTloc,5] 
at[randomTloc,6] 
at[randomTloc,7] 


randoml: 

return, t <- randV <- (randV)+t; 
knowRbase[defaultRegion]; 


saveRandState: subroutine; * remember random number seed 

RBASE «- rbase[randV]; 
oldRandV <- randV; 
oldRandX <- randX; 

return, RBASE <- rbase[def aul tRegion] ; 


restoreRandState: subroutine; * restore remembered random number seed 
RBASE <- rbase[randV]; 
randV <- oldRandV; 
randX «- oldRandX; 

return, RBASE «- rbase[def aul tRegion]; 


getRandV: subroutine; 

RBASE <- rbase[ randV] ; 

RETURN, t «- randV, RBASE «- rbase[def aul tRegion]; 


knowRbase[randomRM]; 
knowRbase[randomRM]; 
knowRbase[randomRM]; 
knowRbase[randomRM]; 
knowRbase[randomRM]; 
knowRbase[randomRM]; 
knowRbase[randomRM]; 







CL ^2 
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* January 20, 1978 3:04 PM ’FLAGS’ manipulating code 

xorFlags: subroutine; * T = value to XOR into flags 

* CLOBBER RSCR, RSCR2, T 

rscr2 «- t; * save bits 

t link; 
xorFlagsRtn <- t; 
top 1evel ; 

t <- flagsLocC; 
cal1[readByte3]; 

t <- t # (rscr2); * xor new bits 

rscr «- t; * put new value back into IM 

cal 1 [putIMRH] , t <- flagsLocC; 

returnllsi ng[xorFl agsRtn]; 

xorTaskCirc: subroutine; * xor the f1ags.testTasks bit in FLAGS 

* CLOBBER RSCR, RSCR2, T 

saveReturn[f1agSubrsRtn]; 
t «- fl ags . testTasks; 
cal 1[xorFlags]; 
noop; 

returnllsing[fl agSubrsRtn]; 

xorFlol dSim: subroutine; * xor the f 1 ags . hoi dSim bit in FLAGS 
saveReturn[f1agSubrsRtn]; 
t *- f 1 ags . hoi dSim; 
cal 1[xorFlags]; 

rscr<-aO; * whether off or on, clear holdFreqLoc 

call [putIMRH] , t <- hoi dFreqLocC; * holdFreq «- 0 

cal 1[fixSim]; 
xorHoldSimXit: 

noop, breakpoint; 

retumilsing[f 1 agSubrsRtn] ; 

xorTaskSim: subroutine; * xor the f1ags.taskSim bit in FLAGS 
saveReturn[flagSubrsRtn]; 
t <- fl ags . taskSim; 
cal 1[xorFlags]; 

rscr<-aO; * whether off or on, clear taskFreqLoc 

call [putIMRH] , t ♦* taskFreqLocC; * taskFreq <- o 

call[fixSim]; * fix the hoidValueLoc, set hardware 

xorTaskSimXit: 

breakpoint, noop; 
returnUsing[f1agSubrsRtn]; 
top 1evel ; 

* June 22, 1978 10:15 AM 

% 

This code supports the conditional simulation mechanism, disableConditionalTask is a subroutine 
** that requires no parameters. It clears flags.conditionOK and sets flags.conditional. It also turns o 
**ff the hold simulator. 

enableConditionalTask sets flags.conditionOK and flags.conditional, then it calls makeHoldValue to fore 
**e the hold simulator into working. 

isableConditionalTask: subroutine; ; 

saveReturn[f1agSubrsRtn]; 

call[checkFlags], t «- (rO)-l; * use mask = -1 to force a read of all the bits 

rscr <- not (f 1 ags .conditionOK); 

rscr <- t and (rscr); 

rscr <- (rscr) or (fl ags . conditional); 

rscr «- (rscr) and (377C); * isolate lower byte i. 

cal 1 [putIMRH] , t «- flagsLocC; I; 

* compose a new hold value from task and 


cal 1[makeHoldValue]; 
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* hold simulator sub values 

cal 1[zeroHoldTRscr]; * stop hold 

cal 1[resetHold]; * jam the hold register w/ holdValue 

returnUsing[f1agSubrsRtn]; 

enableConditionalTask: subroutine; 
saveReturn[flagSubrsRtn]; 

cal 1[checkFlags], t <- (rO)-l; * use mask = -1 to force a read of all the bits 

noop; * make placement easier 

rscr <■ t or (flags . conditionOK); 

rscr «- (rscr) or (fl ags. conditional); 

noop; * make placement easier 

cal 1 [putIMRH] , t *• f 1 agsLocC; * write the new value 

call[makeHoldValue]; * compose a new hold value from task and 

* hold simulator sub values 

call[zeroHoldTRscr]; * stop hold 

call[resetHold]; * jam the hold register w/ holdValue 

returnUsing[f1agSubrsRtn]; 
top level; 


* ERRORS come here! 

branch[err]; 

SET[ERRLOC,400] ; 

ERR: 

BREAKPOINT,GLOBAL, AT[ERRL0C]; 

GOTO[.],BREAKPOINT, AT[ERRL0C,1]; 

GOTO[.], AT[ERRLOC,2]; 

* DATA HELD IN IM 
IMdata: 

ifdef[defaultFlagsP,,set[defaultFlagsP,add[flags.taskSim!, flags.holdSim!]]]; * define defaul 

**t flags if undefined 

data[(Flags: lh[0] rh[defaultFlagsP], at[f1agsLoc])]; * CONTROL FLAGS 

data[(taskFreq : lh[0] rh[0], at[taskFreqLoc]) ] ; * task sirn value 

data[(holdFreq: lh[0] rh[0], at[holdFreqLoc])]; * hold sim value 

data[(nextTask: lh[0] rh[0], at[nextTaskLoc])]; * next task value 

data[(hoidValue: lh[0] rh[0], at[holdValueLoc])]; * current hold value 

data[(iterations: lh[0] rh[0], at[itrsLoc])]; * iteration count 


postDone: noop; 





